home *** CD-ROM | disk | FTP | other *** search
40 REM ****************************** INITIALIZE 45 ON ERROR GOTO 61160 46 OPEN "TAX.DAT" FOR INPUT AS #1 47 INPUT #1,FICA1$,FICA2$ 48 CLOSE 49 FICA1=VAL(FICA1$)/100:FICA2=VAL(FICA2$)/100 50 ON ERROR GOTO 0 80 R$=STRING$(78,45) 120 CLS:KEY OFF:WIDTH 80:SCREEN 0,0,0:COLOR 7,0 160 KEY 1,"":KEY 2,"":KEY 3,"":KEY 4,"":KEY 5,"":KEY 6,"":KEY 7,"":KEY 8,"":KEY 9,"":KEY 10,"" 200 CLS:COLOR 7,0 240 RET=0 280 REM ********************* SCREEN 1 285 PRINT " PAYROLL" 290 PRINT:PRINT " This program is presented under the 'user-supported' concept and as such" 295 PRINT "may be freely copied and passed on to others, providing no changes are made to it and this notice is not removed." 300 PRINT:PRINT " No waranty is expressed or implied and no liability is assumed by the author for any loss of revenue, or other losses incurred by use of this program." 310 PRINT:PRINT " If you are using this program and find it usefull, a contribution is requested ( $ 40 suggested ). Contributions may be sent to :" 320 PRINT:PRINT:PRINT " JOHN ODNEAL" 330 PRINT " P.O. BOX 245" 340 PRINT " ZION, ILLINOIS" 350 PRINT " 60099" 1280 COLOR 7,0:LOCATE 23,25:LINE INPUT "PRESS ENTER TO CONTINUE : ";K$ 1320 REM ******************** SCREEN 2 1520 CLS:COLOR 7,0 1560 COLOR 2,0:LOCATE 4,10:PRINT "1" 1600 COLOR 7,0:LOCATE 4,11:PRINT " SALARIED EMPLOYEE FILES" 1640 COLOR 2,0:LOCATE 7,10:PRINT "2" 1680 COLOR 7,0:LOCATE 7,11:PRINT " HOURLY EMPLOYEE FILES" 1720 COLOR 2,0:LOCATE 10,10:PRINT "3" 1760 COLOR 7,0:LOCATE 10,11:PRINT " FICA RATES AND EMPLOYER LIABILITY" 1800 COLOR 2,0:LOCATE 13,10:PRINT "4" 1840 COLOR 7,0:LOCATE 13,11:PRINT " EXIT PAYROLL PROGRAM" 1880 COLOR 2,0:LOCATE 16,10:PRINT "5" 1920 COLOR 7,0:LOCATE 16,11:PRINT " SELECT PRINTER OPTIONS" 2040 LOCATE 23,10:LINE INPUT "SELECT BY NUMBER AND PRESS ENTER : ";K$ 2080 GOSUB 56360 2120 IF K$="1" THEN GOTO 3280 2160 IF K$="2" THEN GOTO 10200 2200 IF K$="3" THEN 2400 2240 IF K$="4" THEN CLS:CLOSE:SYSTEM 2280 IF K$="5" THEN GOSUB 56960 2360 GOTO 1320 2400 CLS:COLOR 2,0:LOCATE 4,10:PRINT "1" 2440 LOCATE 7,10:PRINT "2" 2480 LOCATE 10,10:PRINT "3" 2520 COLOR 7,0:LOCATE 1,22:PRINT "FICA RATES AND EMPLOYER LIABILITY" 2560 LOCATE 4,11:PRINT " EMPLOYEE FICA, CURRENTLY ";FICA1$;" %" 2600 LOCATE 7,11:PRINT " EMPLOYER FICA, CURRENTLY ";FICA2$;" %" 2640 LOCATE 10,11:PRINT " PRINT CURRENT EMPLOYER LIABILITY" 2680 COLOR 2,0:LOCATE 23,10:PRINT "F" 2720 COLOR 7,0:LOCATE 23,11:LINE INPUT "=FINISH OR SELECT BY NUMBER TO CHANGE : ";K$ 2760 LOCATE 23,1:PRINT STRING$(77,32) 2800 GOSUB 56360 2840 IF K$="1" THEN LOCATE 23,10:LINE INPUT "ENTER NEW EMPLOYEE FICA RATE : ";FICA1$:K$=FICA1$:GOSUB 56360:FICA1$=K$:K$="" 2880 IF K$="2" THEN LOCATE 23,10:LINE INPUT "ENTER NEW EMPLOYER FICA RATE : ";FICA2$:K$=FICA2$:GOSUB 56360:FICA2$=K$:K$="" 2920 IF K$="3" THEN GOSUB 51320 2960 IF K$="F" OR K$="f" THEN 3040 ELSE 2400 3000 GOTO 2400 3040 FICA3$=FICA1$+",":FICA4$=FICA2$+"," 3120 OPEN "TAX.DAT" FOR OUTPUT AS #1 3160 PRINT #1,FICA3$,FICA4$ 3200 CLOSE 3240 GOTO 1320 3280 REM ********************** SCREEN 3 3320 REM ********************** SALARIED 3360 CLS:COLOR 7,0:RET=1 3400 LOCATE 1,28:PRINT "SALARIED EMPLOYEES" 3440 LOCATE 3,1:PRINT " # EMPLOYEE NAME" 3480 LOCATE 3,41:PRINT "# EMPLOYEE NAME":COLOR 2,0 3520 Z=1:X=0:Y=4 3560 X=X+1:Y=Y+1 3600 LOCATE Y,Z:PRINT X 3640 IF X=12 THEN 3680 ELSE 3560 3680 Z=40:X=12:Y=4 3720 X=X+1:Y=Y+1 3760 LOCATE Y,Z:PRINT X 3800 IF X=24 THEN 3840 ELSE 3720 3840 COLOR 7,0 3880 OPEN "NAM.DAT" FOR INPUT AS #1 3920 INPUT #1 ,N1$,N2$,N3$,N4$,N5$,N6$,N7$,N8$,N9$,N10$,N11$,N12$,N13$,N14$,N15$,N16$,N17$,N18$,N19$,N20$,N21$,N22$,N23$,N24$ 3960 CLOSE 4000 IF N1$="0" THEN 4200 4040 OPEN "1.DAT" FOR INPUT AS #1 4080 INPUT #1,X1$,X2$,X3$ 4120 CLOSE 4160 LOCATE 5,6:PRINT X1$", "X2$" "X3$ 4200 IF N2$="0" THEN 4400 4240 OPEN "2.DAT" FOR INPUT AS #1 4280 INPUT #1,X1$,X2$,X3$ 4320 CLOSE 4360 LOCATE 6,6:PRINT X1$", "X2$" "X3$ 4400 IF N3$="0" THEN 4600 4440 OPEN "3.DAT" FOR INPUT AS #1 4480 INPUT #1,X1$,X2$,X3$ 4520 CLOSE 4560 LOCATE 7,6:PRINT X1$", "X2$" "X3$ 4600 IF N4$="0" THEN 4800 4640 OPEN "4.DAT" FOR INPUT AS #1 4680 INPUT #1,X1$,X2$,X3$ 4720 CLOSE 4760 LOCATE 8,6:PRINT X1$", "X2$" "X3$ 4800 IF N5$="0" THEN 5000 4840 OPEN "5.DAT" FOR INPUT AS #1 4880 INPUT #1,X1$,X2$,X3$ 4920 CLOSE 4960 LOCATE 9,6:PRINT X1$", "X2$" "X3$ 5000 IF N6$="0" THEN 5200 5040 OPEN "6.DAT" FOR INPUT AS #1 5080 INPUT #1,X1$,X2$,X3$ 5120 CLOSE 5160 LOCATE 10,6:PRINT X1$", "X2$" "X3$ 5200 IF N7$="0" THEN 5400 5240 OPEN "7.DAT" FOR INPUT AS #1 5280 INPUT #1,X1$,X2$,X3$ 5320 CLOSE 5360 LOCATE 11,6:PRINT X1$", "X2$" "X3$ 5400 IF N8$="0" THEN 5600 5440 OPEN "8.DAT" FOR INPUT AS #1 5480 INPUT #1,X1$,X2$,X3$ 5520 CLOSE 5560 LOCATE 12,6:PRINT X1$", "X2$" "X3$ 5600 IF N9$="0" THEN 5800 5640 OPEN "9.DAT" FOR INPUT AS #1 5680 INPUT #1,X1$,X2$,X3$ 5720 CLOSE 5760 LOCATE 13,6:PRINT X1$", "X2$" "X3$ 5800 IF N10$="0" THEN 6000 5840 OPEN "10.DAT" FOR INPUT AS #1 5880 INPUT #1,X1$,X2$,X3$ 5920 CLOSE 5960 LOCATE 14,6:PRINT X1$", "X2$" "X3$ 6000 IF N11$="0" THEN 6200 6040 OPEN "11.DAT" FOR INPUT AS #1 6080 INPUT #1,X1$,X2$,X3$ 6120 CLOSE 6160 LOCATE 15,6:PRINT X1$", "X2$" "X3$ 6200 IF N12$="0" THEN 6400 6240 OPEN "12.DAT" FOR INPUT AS #1 6280 INPUT #1,X1$,X2$,X3$ 6320 CLOSE 6360 LOCATE 16,6:PRINT X1$", "X2$" "X3$ 6400 IF N13$="0" THEN 6600 6440 OPEN "13.DAT" FOR INPUT AS #1 6480 INPUT #1,X1$,X2$,X3$ 6520 CLOSE 6560 LOCATE 5,45:PRINT X1$", "X2$" "X3$ 6600 IF N14$="0" THEN 6800 6640 OPEN "14.DAT" FOR INPUT AS #1 6680 INPUT #1,X1$,X2$,X3$ 6720 CLOSE 6760 LOCATE 6,45:PRINT X1$", "X2$" "X3$ 6800 IF N15$="0" THEN 7000 6840 OPEN "15.DAT" FOR INPUT AS #1 6880 INPUT #1,X1$,X2$,X3$ 6920 CLOSE 6960 LOCATE 7,45:PRINT X1$", "X2$" "X3$ 7000 IF N16$="0" THEN 7200 7040 OPEN "16.DAT" FOR INPUT AS #1 7080 INPUT #1,X1$,X2$,X3$ 7120 CLOSE 7160 LOCATE 8,45:PRINT X1$", "X2$" "X3$ 7200 IF N17$="0" THEN 7400 7240 OPEN "17.DAT" FOR INPUT AS #1 7280 INPUT #1,X1$,X2$,X3$ 7320 CLOSE 7360 LOCATE 9,45:PRINT X1$", "X2$" "X3$ 7400 IF N18$="0" THEN 7600 7440 OPEN "18.DAT" FOR INPUT AS #1 7480 INPUT #1,X1$,X2$,X3$ 7520 CLOSE 7560 LOCATE 10,45:PRINT X1$", "X2$" "X3$ 7600 IF N19$="0" THEN 7800 7640 OPEN "19.DAT" FOR INPUT AS #1 7680 INPUT #1,X1$,X2$,X3$ 7720 CLOSE 7760 LOCATE 11,45:PRINT X1$", "X2$" "X3$ 7800 IF N20$="0" THEN 8000 7840 OPEN "20.DAT" FOR INPUT AS #1 7880 INPUT #1,X1$,X2$,X3$ 7920 CLOSE 7960 LOCATE 12,45:PRINT X1$", "X2$" "X3$ 8000 IF N21$="0" THEN 8200 8040 OPEN "21.DAT" FOR INPUT AS #1 8080 INPUT #1,X1$,X2$,X3$ 8120 CLOSE 8160 LOCATE 13,45:PRINT X1$", "X2$" "X3$ 8200 IF N22$="0" THEN 8400 8240 OPEN "22.DAT" FOR INPUT AS #1 8280 INPUT #1,X1$,X2$,X3$ 8320 CLOSE 8360 LOCATE 14,45:PRINT X1$", "X2$" "X3$ 8400 IF N23$="0" THEN 8600 8440 OPEN "23.DAT" FOR INPUT AS #1 8480 INPUT #1,X1$,X2$,X3$ 8520 CLOSE 8560 LOCATE 15,45:PRINT X1$", "X2$" "X3$ 8600 IF N24$="0" THEN 8800 8640 OPEN "24.DAT" FOR INPUT AS #1 8680 INPUT #1,X1$,X2$,X3$ 8720 CLOSE 8760 LOCATE 16,45:PRINT X1$", "X2$" "X3$ 8800 COLOR 2,0:LOCATE 19,1:PRINT "C" 8840 COLOR 7,0:LOCATE 19,2:PRINT "=CREATE / KILL A FILE" 8880 COLOR 2,0:LOCATE 19,25:PRINT "V" 8920 COLOR 7,0:LOCATE 19,26:PRINT "=VIEW / ALTER A FILE" 8960 COLOR 2,0:LOCATE 19,53:PRINT "P" 9000 COLOR 7,0:LOCATE 19,54:PRINT "=PRINT A FILE / FILES" 9040 COLOR 2,0:LOCATE 21,1:PRINT "R" 9080 COLOR 7,0:LOCATE 21,2:PRINT "=RETURN TO MAIN MENU" 9120 COLOR 2,0:LOCATE 21,25:PRINT "E" 9160 COLOR 7,0:LOCATE 21,26:PRINT "=EXIT PAYROLL PROGRAM" 9200 LOCATE 23,21:LINE INPUT "SELECT COMMAND AND HIT ENTER : ";K$ 9240 GOSUB 56360 9280 IF K$="E" OR K$="e" THEN CLS:CLOSE:SYSTEM 9320 IF K$="R" OR K$="r" THEN 1320 9360 IF K$="C" OR K$="c" THEN 10000 9400 IF K$="V" OR K$="v" THEN 9520 9440 IF K$="P" OR K$="p" THEN 9720 9480 GOTO 3280 9520 RET=1:LOCATE 23,2:PRINT STRING$(77,32) 9560 LOCATE 23,25:LINE INPUT "VIEW FILE NUMBER : ";K$ 9600 GOSUB 56360 9640 S=VAL(K$):IF S=>1 AND S=<24 THEN 28400 9680 GOTO 3280 9720 RET=1:LOCATE 23,15:PRINT "PRINT" 9760 COLOR 2,0:LOCATE 23,21:PRINT "A" 9800 COLOR 7,0:LOCATE 23,22:LINE INPUT "=ALL ACTIVE FILES, OR SELECT BY NUMBER : ";K$ 9840 GOSUB 56360 9880 P=VAL(K$):IF P=>1 AND P =<24 THEN 40320 9920 IF K$="A" OR K$="a" THEN P=25:GOTO 40320 9960 GOTO 3280 10000 RET=1:LOCATE 23,2:PRINT STRING$(77,32) 10040 LOCATE 23,25:LINE INPUT "CREATE KILL / FILE NUMBER : ";K$ 10080 GOSUB 56360 10120 C=VAL(K$):IF C=>1 AND C=<24 THEN 17120 10160 GOTO 3280 10200 REM ********************** SCREEN 4 10240 REM ********************** HOURLY 10280 CLS:COLOR 7,0:RET=2 10320 LOCATE 1,28:PRINT "HOURLY WAGE EMPLOYEES" 10360 LOCATE 3,1:PRINT " # EMPLOYEE NAME" 10400 LOCATE 3,41:PRINT "# EMPLOYEE NAME":COLOR 2,0 10440 Z=1:X=0:Y=4 10480 X=X+1:Y=Y+1 10520 LOCATE Y,Z:PRINT X 10560 IF X=12 THEN 10600 ELSE 10480 10600 Z=40:X=12:Y=4 10640 X=X+1:Y=Y+1 10680 LOCATE Y,Z:PRINT X 10720 IF X=24 THEN 10760 ELSE 10640 10760 COLOR 7,0 10800 OPEN "NAM1.DAT" FOR INPUT AS #1 10840 INPUT #1 ,N1$,N2$,N3$,N4$,N5$,N6$,N7$,N8$,N9$,N10$,N11$,N12$,N13$,N14$,N15$,N16$,N17$,N18$,N19$,N20$,N21$,N22$,N23$,N24$ 10880 CLOSE 10920 IF N1$="0" THEN 11120 10960 OPEN "101.DAT" FOR INPUT AS #1 11000 INPUT #1,X1$,X2$,X3$ 11040 CLOSE 11080 LOCATE 5,6:PRINT X1$", "X2$" "X3$ 11120 IF N2$="0" THEN 11320 11160 OPEN "102.DAT" FOR INPUT AS #1 11200 INPUT #1,X1$,X2$,X3$ 11240 CLOSE 11280 LOCATE 6,6:PRINT X1$", "X2$" "X3$ 11320 IF N3$="0" THEN 11520 11360 OPEN "103.DAT" FOR INPUT AS #1 11400 INPUT #1,X1$,X2$,X3$ 11440 CLOSE 11480 LOCATE 7,6:PRINT X1$", "X2$" "X3$ 11520 IF N4$="0" THEN 11720 11560 OPEN "104.DAT" FOR INPUT AS #1 11600 INPUT #1,X1$,X2$,X3$ 11640 CLOSE 11680 LOCATE 8,6:PRINT X1$", "X2$" "X3$ 11720 IF N5$="0" THEN 11920 11760 OPEN "105.DAT" FOR INPUT AS #1 11800 INPUT #1,X1$,X2$,X3$ 11840 CLOSE 11880 LOCATE 9,6:PRINT X1$", "X2$" "X3$ 11920 IF N6$="0" THEN 12120 11960 OPEN "106.DAT" FOR INPUT AS #1 12000 INPUT #1,X1$,X2$,X3$ 12040 CLOSE 12080 LOCATE 10,6:PRINT X1$", "X2$" "X3$ 12120 IF N7$="0" THEN 12320 12160 OPEN "107.DAT" FOR INPUT AS #1 12200 INPUT #1,X1$,X2$,X3$ 12240 CLOSE 12280 LOCATE 11,6:PRINT X1$", "X2$" "X3$ 12320 IF N8$="0" THEN 12520 12360 OPEN "108.DAT" FOR INPUT AS #1 12400 INPUT #1,X1$,X2$,X3$ 12440 CLOSE 12480 LOCATE 12,6:PRINT X1$", "X2$" "X3$ 12520 IF N9$="0" THEN 12720 12560 OPEN "109.DAT" FOR INPUT AS #1 12600 INPUT #1,X1$,X2$,X3$ 12640 CLOSE 12680 LOCATE 13,6:PRINT X1$", "X2$" "X3$ 12720 IF N10$="0" THEN 12920 12760 OPEN "110.DAT" FOR INPUT AS #1 12800 INPUT #1,X1$,X2$,X3$ 12840 CLOSE 12880 LOCATE 14,6:PRINT X1$", "X2$" "X3$ 12920 IF N11$="0" THEN 13120 12960 OPEN "111.DAT" FOR INPUT AS #1 13000 INPUT #1,X1$,X2$,X3$ 13040 CLOSE 13080 LOCATE 15,6:PRINT X1$", "X2$" "X3$ 13120 IF N12$="0" THEN 13320 13160 OPEN "112.DAT" FOR INPUT AS #1 13200 INPUT #1,X1$,X2$,X3$ 13240 CLOSE 13280 LOCATE 16,6:PRINT X1$", "X2$" "X3$ 13320 IF N13$="0" THEN 13520 13360 OPEN "113.DAT" FOR INPUT AS #1 13400 INPUT #1,X1$,X2$,X3$ 13440 CLOSE 13480 LOCATE 5,45:PRINT X1$", "X2$" "X3$ 13520 IF N14$="0" THEN 13720 13560 OPEN "114.DAT" FOR INPUT AS #1 13600 INPUT #1,X1$,X2$,X3$ 13640 CLOSE 13680 LOCATE 6,45:PRINT X1$", "X2$" "X3$ 13720 IF N15$="0" THEN 13920 13760 OPEN "115.DAT" FOR INPUT AS #1 13800 INPUT #1,X1$,X2$,X3$ 13840 CLOSE 13880 LOCATE 7,45:PRINT X1$", "X2$" "X3$ 13920 IF N16$="0" THEN 14120 13960 OPEN "116.DAT" FOR INPUT AS #1 14000 INPUT #1,X1$,X2$,X3$ 14040 CLOSE 14080 LOCATE 8,45:PRINT X1$", "X2$" "X3$ 14120 IF N17$="0" THEN 14320 14160 OPEN "117.DAT" FOR INPUT AS #1 14200 INPUT #1,X1$,X2$,X3$ 14240 CLOSE 14280 LOCATE 9,45:PRINT X1$", "X2$" "X3$ 14320 IF N18$="0" THEN 14520 14360 OPEN "118.DAT" FOR INPUT AS #1 14400 INPUT #1,X1$,X2$,X3$ 14440 CLOSE 14480 LOCATE 10,45:PRINT X1$", "X2$" "X3$ 14520 IF N19$="0" THEN 14720 14560 OPEN "119.DAT" FOR INPUT AS #1 14600 INPUT #1,X1$,X2$,X3$ 14640 CLOSE 14680 LOCATE 11,45:PRINT X1$", "X2$" "X3$ 14720 IF N20$="0" THEN 14920 14760 OPEN "120.DAT" FOR INPUT AS #1 14800 INPUT #1,X1$,X2$,X3$ 14840 CLOSE 14880 LOCATE 12,45:PRINT X1$", "X2$" "X3$ 14920 IF N21$="0" THEN 15120 14960 OPEN "121.DAT" FOR INPUT AS #1 15000 INPUT #1,X1$,X2$,X3$ 15040 CLOSE 15080 LOCATE 13,45:PRINT X1$", "X2$" "X3$ 15120 IF N22$="0" THEN 15320 15160 OPEN "122.DAT" FOR INPUT AS #1 15200 INPUT #1,X1$,X2$,X3$ 15240 CLOSE 15280 LOCATE 14,45:PRINT X1$", "X2$" "X3$ 15320 IF N23$="0" THEN 15520 15360 OPEN "123.DAT" FOR INPUT AS #1 15400 INPUT #1,X1$,X2$,X3$ 15440 CLOSE 15480 LOCATE 15,45:PRINT X1$", "X2$" "X3$ 15520 IF N24$="0" THEN 15720 15560 OPEN "124.DAT" FOR INPUT AS #1 15600 INPUT #1,X1$,X2$,X3$ 15640 CLOSE 15680 LOCATE 16,45:PRINT X1$", "X2$" "X3$ 15720 COLOR 2,0:LOCATE 19,1:PRINT "C" 15760 COLOR 7,0:LOCATE 19,2:PRINT "=CREATE / KILL A FILE" 15800 COLOR 2,0:LOCATE 19,25:PRINT "V" 15840 COLOR 7,0:LOCATE 19,26:PRINT "=VIEW / ALTER A FILE" 15880 COLOR 2,0:LOCATE 19,53:PRINT "P" 15920 COLOR 7,0:LOCATE 19,54:PRINT "=PRINT A FILE / FILES" 15960 COLOR 2,0:LOCATE 21,1:PRINT "R" 16000 COLOR 7,0:LOCATE 21,2:PRINT "=RETURN TO MAIN MENU" 16040 COLOR 2,0:LOCATE 21,25:PRINT "E" 16080 COLOR 7,0:LOCATE 21,26:PRINT "=EXIT PAYROLL PROGRAM" 16120 LOCATE 23,21:LINE INPUT "SELECT COMMAND AND HIT ENTER : ";K$ 16160 GOSUB 56360 16200 IF K$="E" OR K$="e" THEN CLS:CLOSE:SYSTEM 16240 IF K$="R" OR K$="r" THEN 1320 16280 IF K$="C" OR K$="c" THEN 16920 16320 IF K$="V" OR K$="v" THEN 16440 16360 IF K$="P" OR K$="p" THEN 16640 16400 GOTO 10200 16440 RET=2:LOCATE 23,2:PRINT STRING$(77,32) 16480 LOCATE 23,25:LINE INPUT "VIEW FILE NUMBER : ";K$ 16520 GOSUB 56360 16560 H=VAL(K$):IF H=>1 AND H=<24 THEN 28400 16600 GOTO 10200 16640 RET=2:LOCATE 23,15:PRINT "PRINT" 16680 COLOR 2,0:LOCATE 23,21:PRINT "A" 16720 COLOR 7,0:LOCATE 23,22:LINE INPUT "=ALL ACTIVE FILES, OR SELECT BY NUMBER : ";K$ 16760 GOSUB 56360 16800 P=VAL(K$):IF P=>1 AND P =<24 THEN 40320 16840 IF K$="A" OR K$="a" THEN P=25:GOTO 40320 16880 GOTO 10200 16920 RET=2:LOCATE 23,2:PRINT STRING$(77,32) 16960 LOCATE 23,25:LINE INPUT "CREATE KILL / FILE NUMBER : ";K$ 17000 GOSUB 56360 17040 C=VAL(K$):IF C=>1 AND C=<24 THEN 17120 17080 GOTO 10200 17120 REM ************* CREATE / KILL A FILE 17160 CLS:COLOR 2,0:LOCATE 12,25:PRINT "C":COLOR 7,0:LOCATE 12,26:PRINT "=CREATE OR ":COLOR 2,0:LOCATE 12,37:PRINT "K":COLOR 7,0:LOCATE 12,38:PRINT "=KILL THE FILE : " 17165 ON ERROR GOTO 56800 17200 LOCATE 22,19:LINE INPUT "SELECT BY LETTER AND PRESS ENTER : ";K$ 17240 GOSUB 56360 17280 IF K$="C" OR K$="c" THEN 17360 17320 IF K$="K" OR K$="k" THEN 24800 17360 IF RET=1 THEN 17440 17400 IF RET=2 THEN 18560 17440 EMP$="CREATE A SALARIED EMPLOYEE FILE" 17480 S=C 17520 N1$=" ":N2$=" ":N3$=" ":N4$=" ":N5$=" ":N6$=" ":N7$=" ":N8$=" ":N9$=" ":N10$=" ":N11$=" ":N12$=" ":N13$=" ":N14$=" ":N15$=" ":N16$=" ":N17$=" ":N18$=" ":N19$=" ":N20$=" ":N21$=" ":N22$=" ":N23$=" ":N24$=" ":N7=0:N8=0:N9=0 17560 IF C=1 THEN F$="1" 17600 IF C=2 THEN F$="2" 17640 IF C=3 THEN F$="3" 17680 IF C=4 THEN F$="4" 17720 IF C=5 THEN F$="5" 17760 IF C=6 THEN F$="6" 17800 IF C=7 THEN F$="7" 17840 IF C=8 THEN F$="8" 17880 IF C=9 THEN F$="9" 17920 IF C=10 THEN F$="10" 17960 IF C=11 THEN F$="11" 18000 IF C=12 THEN F$="12" 18040 IF C=13 THEN F$="13" 18080 IF C=14 THEN F$="14" 18120 IF C=15 THEN F$="15" 18160 IF C=16 THEN F$="16" 18200 IF C=17 THEN F$="17" 18240 IF C=18 THEN F$="18" 18280 IF C=19 THEN F$="19" 18320 IF C=20 THEN F$="20" 18360 IF C=21 THEN F$="21" 18400 IF C=22 THEN F$="22" 18440 IF C=23 THEN F$="23" 18480 IF C=24 THEN F$="24" 18520 GOTO 19640 18560 EMP$="CREATE AN HOURLY EMPLOYEE FILE" 18600 H=C 18640 N1$=" ":N2$=" ":N3$=" ":N4$=" ":N5$=" ":N6$=" ":N7$=" ":N8$=" ":N9$=" ":N10$=" ":N11$=" ":N12$=" ":N13$=" ":N14$=" ":N15$=" ":N16$=" ":N17$=" ":N18$=" ":N19$=" ":N20$=" ":N21$=" ":N22$=" ":N23$=" ":N24$=" ":N7=0:N8=0:N9=0 18680 IF C=1 THEN F$="101" 18720 IF C=2 THEN F$="102" 18760 IF C=3 THEN F$="103" 18800 IF C=4 THEN F$="104" 18840 IF C=5 THEN F$="105" 18880 IF C=6 THEN F$="106" 18920 IF C=7 THEN F$="107" 18960 IF C=8 THEN F$="108" 19000 IF C=9 THEN F$="109" 19040 IF C=10 THEN F$="110" 19080 IF C=11 THEN F$="111" 19120 IF C=12 THEN F$="112" 19160 IF C=13 THEN F$="113" 19200 IF C=14 THEN F$="114" 19240 IF C=15 THEN F$="115" 19280 IF C=16 THEN F$="116" 19320 IF C=17 THEN F$="117" 19360 IF C=18 THEN F$="118" 19400 IF C=19 THEN F$="119" 19440 IF C=20 THEN F$="120" 19480 IF C=21 THEN F$="121" 19520 IF C=22 THEN F$="122" 19560 IF C=23 THEN F$="123" 19600 IF C=24 THEN F$="124" 19640 CLS:COLOR 7,0 19680 LOCATE 1,22:PRINT EMP$:COLOR 2,0 19720 X=0:Y=4 19760 X=X+1:Y=Y+1 19800 LOCATE Y,1:PRINT X 19840 IF X=12 THEN 19880 ELSE 19760 19880 COLOR 7,0:LOCATE 4,6:PRINT "LAST NAME" 19920 COLOR 2,0:LOCATE 21,27:PRINT "F":COLOR 7,0:LOCATE 21,28:PRINT "=FINISH CREATING A FILE" 19960 COLOR 4,0:LOCATE 22,7:PRINT "DO NOT ENTER ANY COMMA'S. PROGRAM WILL PLACE THEM WHERE NEEDED !!!" 20000 COLOR 7,0:LOCATE 23,27:PRINT "ENTER ":COLOR 28,0:LOCATE 23,33:PRINT "LAST NAME":COLOR 7,0:LOCATE 23,43:LINE INPUT "ONLY : ";NAM$:K$=NAM$:GOSUB 56360:NAM$=K$:IF K$="" THEN 19640 20040 GOSUB 56360 20080 IF NAM$="F" OR K$="f" THEN CLOSE:GOTO 1320 20120 LOCATE 23,1:PRINT STRING$(75,32) 20160 IF RET=1 THEN OPEN "NAM.DAT" FOR INPUT AS #1 20200 IF RET=2 THEN OPEN "NAM1.DAT" FOR INPUT AS #1 20240 INPUT #1, N1$,N2$,N3$,N4$,N5$,N6$,N7$,N8$,N9$,N10$,N11$,N12$,N13$,N14$,N15$,N16$,N17$,N18$,N19$,N20$,N21$,N22$,N23$,N24$ 20280 CLOSE 20320 IF C=1 THEN N1$=NAM$ 20360 IF C=2 THEN N2$=NAM$ 20400 IF C=3 THEN N3$=NAM$ 20440 IF C=4 THEN N4$=NAM$ 20480 IF C=5 THEN N5$=NAM$ 20520 IF C=6 THEN N6$=NAM$ 20560 IF C=7 THEN N7$=NAM$ 20600 IF C=8 THEN N8$=NAM$ 20640 IF C=9 THEN N9$=NAM$ 20680 IF C=10 THEN N10$=NAM$ 20720 IF C=11 THEN N11$=NAM$ 20760 IF C=12 THEN N12$=NAM$ 20800 IF C=13 THEN N13$=NAM$ 20840 IF C=14 THEN N14$=NAM$ 20880 IF C=15 THEN N15$=NAM$ 20920 IF C=16 THEN N16$=NAM$ 20960 IF C=17 THEN N17$=NAM$ 21000 IF C=18 THEN N18$=NAM$ 21040 IF C=19 THEN N19$=NAM$ 21080 IF C=20 THEN N20$=NAM$ 21120 IF C=21 THEN N21$=NAM$ 21160 IF C=22 THEN N22$=NAM$ 21200 IF C=23 THEN N23$=NAM$ 21240 IF C=24 THEN N24$=NAM$ 21280 N1$=N1$+",":N2$=N2$+",":N3$=N3$+",":N4$=N4$+",":N5$=N5$+"," 21320 N6$=N6$+",":N7$=N7$+",":N8$=N8$+",":N9$=N9$+",":N10$=N10$+"," 21360 N11$=N11$+",":N12$=N12$+",":N13$=N13$+",":N14$=N14$+",":N15$=N15$+"," 21400 N16$=N16$+",":N17$=N17$+",":N18$=N18$+",":N19$=N19$+",":N20$=N20$+"," 21440 N21$=N21$+",":N22$=N22$+",":N23$=N23$+",":N24$=N24$+"," 21480 IF RET=1 THEN OPEN "NAM.DAT" FOR OUTPUT AS #1 21520 IF RET=2 THEN OPEN "NAM1.DAT" FOR OUTPUT AS #1 21560 PRINT #1,N1$,N2$,N3$,N4$,N5$,N6$,N7$,N8$,N9$,N10$,N11$,N12$,N13$,N14$,N15$,N16$,N17$,N18$,N19$,N20$,N21$,N22$,N23$,N24$ 21600 CLOSE 21640 N10$=" ":N11$=" ":N12$=" ":N13$=" ":N14$=" ":N15$=" ":N16$=" ":N17$=" " 21680 N1$=" ":N2$=" ":N3$=" ":N4$=" ":N5$=" ":N6$=" ":N7$=" ":N8$=" ":N9$=" " 21720 N18$=" ":N19$=" ":N20$=" ":N21$=" ":N22$=" ":N23$=" ":N24$=" " 21760 N1$=NAM$ 21800 LOCATE 4,5:PRINT STRING$ (37,32):LOCATE 4,6:PRINT N1$ 21840 LOCATE 5,7:PRINT "FIRST NAME" 21880 LOCATE 6,7:PRINT "MIDDLE NAME/INITIAL" 21920 LOCATE 7,6:PRINT "D.O.B. :" 21960 LOCATE 8,6:PRINT "SS# :" 22000 LOCATE 9,6:PRINT "# DEPENDENTS :" 22040 LOCATE 10,6:PRINT "SALARY/WAGE : $" 22080 LOCATE 11,6:PRINT "FED TAX RATE :" 22120 LOCATE 12,6:PRINT "ST. TAX RATE :" 22160 LOCATE 13,6:PRINT "P.P. END :" 22200 LOCATE 14,6:PRINT "COMMENTS:":LOCATE 14,15:PRINT STRING$(63,32) 22240 LOCATE 15,6:PRINT "COMMENTS:":LOCATE 15,15:PRINT STRING$(63,32) 22280 LOCATE 16,6:PRINT "COMMENTS:":LOCATE 16,15:PRINT STRING$(63,32) 22320 LOCATE 4,6:PRINT N1$ 22360 LOCATE 5,6:PRINT N2$ 22400 LOCATE 6,6:PRINT N3$ 22440 LOCATE 7,24:PRINT N4$ 22480 LOCATE 8,24:PRINT N5$ 22520 LOCATE 9,24:PRINT N6$ 22560 LOCATE 10,25:PRINT USING "###,###.##";N7 22600 LOCATE 11,29:PRINT USING "###.##";N8:LOCATE 11,35:PRINT " %" 22640 LOCATE 12,29:PRINT USING "###.##";N9:LOCATE 12,35:PRINT " %" 22680 LOCATE 13,24:PRINT N14$ 22720 LOCATE 14,16:PRINT N22$ 22760 LOCATE 15,16:PRINT N23$ 22800 LOCATE 16,16:PRINT N24$ 22840 K=0:LOCATE 23,1:PRINT STRING$(78,32):LOCATE 23,16:LINE INPUT "SELECT BY NUMBER OR LETTER AND HIT ENTER : ";K$ 22880 GOSUB 56360 22920 LOCATE 23,1:PRINT STRING$(78,32) 22960 IF K$="F" OR K$="f" THEN 23560 23000 IF K$="1" THEN LOCATE 5,5:PRINT STRING$(37,32):LOCATE 23,28:LINE INPUT "FIRST NAME ONLY : ";N2$:K$=N2$:GOSUB 56360:IF N2$="" OR K$="" THEN N2$=" ":GOTO 21840 23040 IF K$="2" THEN LOCATE 6,5:PRINT STRING$(37,32):LOCATE 23,28:LINE INPUT "MIDDLE NAME / INITIAL ONLY : ";N3$:K$=N3$:GOSUB 56360:IF N3$="" OR K$="" THEN N3$=" " ELSE 21920 23080 IF K$="3" THEN LOCATE 7,5:PRINT STRING$(37,32):LOCATE 23,28:LINE INPUT "DATE OF BIRTH : ";N4$:K$=N4$:GOSUB 56360:IF N4$="" OR K$="" THEN N4$=" " ELSE 21920 23120 IF K$="4" THEN LOCATE 8,5:PRINT STRING$(37,32):LOCATE 23,28:LINE INPUT "SOCIAL SECURITY NUMBER : ";N5$:K$=N5$:GOSUB 56360:IF N5$="" OR K$="" THEN N5$=" " ELSE 21920 23160 IF K$="5" THEN LOCATE 9,5:PRINT STRING$(37,32):LOCATE 23,28:LINE INPUT "NUMBER OF DEPENDENTS : ";N6$:K$=N6$:GOSUB 56360:IF N6$="" OR K$="" THEN N6$="0" ELSE 21920 23200 IF K$="6" THEN LOCATE 10,6:PRINT STRING$(37,32):LOCATE 23,28:LINE INPUT "SALARY/WAGE : ";N7$:K$=N7$:GOSUB 56360:IF N7$="" OR K$="" THEN N7$="0" ELSE N7=VAL(N7$):GOTO 21920 23240 IF K$="7" THEN LOCATE 11,5:PRINT STRING$(37,32):LOCATE 23,28:LINE INPUT "FED TAX RATE : ";N8$:K$=N8$:GOSUB 56360:IF N8$="" OR K$="" THEN N8$="0" ELSE N8=VAL(N8$):GOTO 21920 23280 IF K$="9" THEN LOCATE 13,5:PRINT STRING$(37,32):LOCATE 23,28:LINE INPUT "PAY PERIOD ENDING : ";N14$:K$=N14$:GOSUB 56360:IF N14$="" OR K$="" THEN N14$=" " ELSE 21920 23320 IF K$="8" THEN LOCATE 12,5:PRINT STRING$(37,32):LOCATE 23,28:LINE INPUT "STATE TAX RATE : ";N9$:K$=N9$:GOSUB 56360:IF N9$="" OR K$="" THEN N9$="0" ELSE N9 =VAL(N9$):GOTO 21920 23360 IF K$="10" THEN LOCATE 14,15:PRINT STRING$(63,32):LOCATE 23,1:PRINT "ENTER COMMENTS :":LOCATE 23,18:PRINT STRING$(55,176):LOCATE 23,18:LINE INPUT "";N22$:K$=N22$:GOSUB 56360:IF N22$="" OR K$="" THEN N22$=" " ELSE 21920 23400 IF K$="11" THEN LOCATE 15,15:PRINT STRING$(63,32):LOCATE 23,1:PRINT "ENTER COMMENTS :":LOCATE 23,18:PRINT STRING$(55,176):LOCATE 23,18:LINE INPUT "";N23$:K$=N23$:GOSUB 56360:IF N23$="" OR K$="" THEN N23$=" " ELSE 21920 23440 IF K$="12" THEN LOCATE 16,15:PRINT STRING$(63,32):LOCATE 23,1:PRINT "ENTER COMMENTS :":LOCATE 23,18:PRINT STRING$(55,176):LOCATE 23,18:LINE INPUT "";N24$:K$=N24$:GOSUB 56360:IF N24$="" OR K$="" THEN N24$=" " ELSE 21920 23480 LOCATE 23,10:PRINT STRING$(65,32) 23520 GOTO 21920 23560 DT$=F$+".DAT" 23600 N1$=N1$+"," 23640 N2$=N2$+"," 23680 N3$=N3$+"," 23720 N4$=N4$+"," 23760 N5$=N5$+"," 23800 N6$=N6$+"," 23840 N7$=N7$+"," 23880 N8$=N8$+"," 23920 N9$=N9$+"," 23960 N10$=N10$+"," 24000 N11$=N11$+"," 24040 N12$=N12$+"," 24080 N13$=N13$+"," 24120 N14$=N14$+"," 24160 N15$=N15$+"," 24200 N16$=N16$+"," 24240 N17$=N17$+"," 24280 N18$=N18$+"," 24320 N19$=N19$+"," 24360 N20$=N20$+"," 24400 N21$=N21$+"," 24440 N22$=N22$+"," 24480 N23$=N23$+"," 24520 N24$=N24$+"," 24560 OPEN DT$ FOR OUTPUT AS #1 24600 PRINT #1, N1$,N2$,N3$,N4$,N5$,N6$,N7$,N8$,N9$,N10$,N11$,N12$,N13$,N14$,N15$,N16$,N17$,N18$,N19$,N20$,N21$,N22$,N23$,N24$ 24640 CLOSE #1 24680 N1$=" ":N2$=" ":N3$=" ":N4$=" ":N5$=" ":N6$=" ":N7$=" ":N8$=" ":N9$=" ":N10$=" ":N11$=" ":N12$=" ":N13$=" ":N14$=" ":N15$=" ":N16$=" ":N17$=" ":N18$=" ":N19$=" ":N20$=" ":N21$=" ":N22$=" ":N23$=" ":N24$=" ":N7=0:N8=0:N9=0 24685 ON ERROR GOTO 0 24720 IF RET=1 THEN 28560 24760 IF RET=2 THEN 34280 24800 REM **************** KILL A FILE 24840 IF RET=2 THEN 25880 24880 IF C=1 THEN KILL "1.DAT" 24920 IF C=2 THEN KILL "2.DAT" 24960 IF C=3 THEN KILL "3.DAT" 25000 IF C=4 THEN KILL "4.DAT" 25040 IF C=5 THEN KILL "5.DAT" 25080 IF C=6 THEN KILL "6.DAT" 25120 IF C=7 THEN KILL "7.DAT" 25160 IF C=8 THEN KILL "8.DAT" 25200 IF C=9 THEN KILL "9.DAT" 25240 IF C=10 THEN KILL "10.DAT" 25280 IF C=11 THEN KILL "11.DAT" 25320 IF C=12 THEN KILL "12.DAT" 25360 IF C=13 THEN KILL "13.DAT" 25400 IF C=14 THEN KILL "14.DAT" 25440 IF C=15 THEN KILL "15.DAT" 25480 IF C=16 THEN KILL "16.DAT" 25520 IF C=17 THEN KILL "17.DAT" 25560 IF C=18 THEN KILL "18.DAT" 25600 IF C=19 THEN KILL "19.DAT" 25640 IF C=20 THEN KILL "20.DAT" 25680 IF C=21 THEN KILL "21.DAT" 25720 IF C=22 THEN KILL "22.DAT" 25760 IF C=23 THEN KILL "23.DAT" 25800 IF C=24 THEN KILL "24.DAT" 25840 GOTO 26840 25880 IF C=1 THEN KILL "101.DAT" 25920 IF C=2 THEN KILL "102.DAT" 25960 IF C=3 THEN KILL "103.DAT" 26000 IF C=4 THEN KILL "104.DAT" 26040 IF C=5 THEN KILL "105.DAT" 26080 IF C=6 THEN KILL "106.DAT" 26120 IF C=7 THEN KILL "107.DAT" 26160 IF C=8 THEN KILL "108.DAT" 26200 IF C=9 THEN KILL "109.DAT" 26240 IF C=10 THEN KILL "110.DAT" 26280 IF C=11 THEN KILL "111.DAT" 26320 IF C=12 THEN KILL "112.DAT" 26360 IF C=13 THEN KILL "113.DAT" 26400 IF C=14 THEN KILL "114.DAT" 26440 IF C=15 THEN KILL "115.DAT" 26480 IF C=16 THEN KILL "116.DAT" 26520 IF C=17 THEN KILL "117.DAT" 26560 IF C=18 THEN KILL "118.DAT" 26600 IF C=19 THEN KILL "119.DAT" 26640 IF C=20 THEN KILL "120.DAT" 26680 IF C=21 THEN KILL "121.DAT" 26720 IF C=22 THEN KILL "122.DAT" 26760 IF C=23 THEN KILL "123.DAT" 26800 IF C=24 THEN KILL "124.DAT" 26840 IF RET=1 THEN OPEN "NAM.DAT" FOR INPUT AS #1 26880 IF RET=2 THEN OPEN "NAM1.DAT" FOR INPUT AS #1 26920 INPUT #1,X1$,X2$,X3$,X4$,X5$,X6$,X7$,X8$,X9$,X10$,X11$,X12$,X13$,X14$,X15$,X16$,X17$,X18$,X19$,X20$,X21$,X22$,X23$,X24$ 26960 CLOSE 27000 IF C=1 THEN X1$="0" 27040 IF C=2 THEN X2$="0" 27080 IF C=3 THEN X3$="0" 27120 IF C=4 THEN X4$="0" 27160 IF C=5 THEN X5$="0" 27200 IF C=6 THEN X6$="0" 27240 IF C=7 THEN X7$="0" 27280 IF C=8 THEN X8$="0" 27320 IF C=9 THEN X9$="0" 27360 IF C=10 THEN X10$="0" 27400 IF C=11 THEN X11$="0" 27440 IF C=12 THEN X12$="0" 27480 IF C=13 THEN X13$="0" 27520 IF C=14 THEN X14$="0" 27560 IF C=15 THEN X15$="0" 27600 IF C=16 THEN X16$="0" 27640 IF C=17 THEN X17$="0" 27680 IF C=18 THEN X18$="0" 27720 IF C=19 THEN X19$="0" 27760 IF C=20 THEN X20$="0" 27800 IF C=21 THEN X21$="0" 27840 IF C=22 THEN X22$="0" 27880 IF C=23 THEN X23$="0" 27920 IF C=24 THEN X24$="0" 27960 X1$=X1$+",":X2$=X2$+",":X3$=X3$+",":X4$=X4$+",":X5$=X5$+",":X6$=X6$+"," 28000 X7$=X7$+",":X8$=X8$+",":X9$=X9$+",":X10$=X10$+",":X11$=X11$+"," 28040 X12$=X12$+",":X13$=X13$+",":X14$=X14$+",":X15$=X15$+",":X16$=X16$+"," 28080 X17$=X17$+",":X18$=X18$+",":X19$=X19$+",":X20$=X20$+",":X21$=X21$+"," 28120 X22$=X22$+",":X23$=X23$+",":X24$=X24$+"," 28160 IF RET=1 THEN OPEN "NAM.DAT" FOR OUTPUT AS #1 28200 IF RET=2 THEN OPEN "NAM1.DAT" FOR OUTPUT AS #1 28240 PRINT #1,X1$,X2$,X3$,X4$,X5$,X6$,X7$,X8$,X9$,X10$,X11$,X12$,X13$,X14$,X15$,X16$,X17$,X18$,X19$,X20$,X21$,X22$,X23$,X24$ 28280 CLOSE 28285 ON ERROR GOTO 0 28320 IF RET=1 THEN 3280 28360 IF RET=2 THEN 10200 28400 REM ************* VIEW A FILE 28440 CLS:COLOR 7,0 28445 ON ERROR GOTO 56800 28480 IF RET=1 THEN 28560 28520 IF RET=2 THEN 34280 28560 IF S=1 THEN F$="1" 28600 IF S=2 THEN F$="2" 28640 IF S=3 THEN F$="3" 28680 IF S=4 THEN F$="4" 28720 IF S=5 THEN F$="5" 28760 IF S=6 THEN F$="6" 28800 IF S=7 THEN F$="7" 28840 IF S=8 THEN F$="8" 28880 IF S=9 THEN F$="9" 28920 IF S=10 THEN F$="10" 28960 IF S=11 THEN F$="11" 29000 IF S=12 THEN F$="12" 29040 IF S=13 THEN F$="13" 29080 IF S=14 THEN F$="14" 29120 IF S=15 THEN F$="15" 29160 IF S=16 THEN F$="16" 29200 IF S=17 THEN F$="17" 29240 IF S=18 THEN F$="18" 29280 IF S=19 THEN F$="19" 29320 IF S=20 THEN F$="20" 29360 IF S=21 THEN F$="21" 29400 IF S=22 THEN F$="22" 29440 IF S=23 THEN F$="23" 29480 IF S=24 THEN F$="24" 29520 DT$=F$+".DAT" 29560 OPEN DT$ FOR INPUT AS #1 29600 INPUT #1,N1$,N2$,N3$,N4$,N5$,N6$,N7$,N8$,N9$,N10$,N11$,N12$,N13$,N14$,N15$,N16$,N17$,N18$,N19$,N20$,N21$,N22$,N23$,N24$ 29640 CLOSE 29680 STAX=VAL(N9$)/100 29720 CLS:COLOR 7,0:LOCATE 1,30:PRINT "SALARIED EMPLOYEE" 29760 LOCATE 2,1:PRINT R$ 29800 COLOR 2,0:LOCATE 3,28:PRINT "1" 29840 LOCATE 3,53:PRINT "2" 29880 LOCATE 5,1:PRINT "3" 29920 LOCATE 5,28:PRINT "4" 29960 LOCATE 5,53:PRINT "5" 30000 LOCATE 7,1:PRINT "6" 30040 COLOR 7,0:LOCATE 10,1:PRINT R$ 30080 LOCATE 14,1:PRINT R$ 30120 COLOR 2,0:LOCATE 11,1:PRINT "7" 30160 LOCATE 17,1:PRINT "8" 30200 LOCATE 18,1:PRINT "9" 30240 LOCATE 19,1:PRINT "10" 30280 COLOR 4,0:LOCATE 21,7:PRINT "DO NOT ENTER ANY COMMA'S. PROGRAM WILL PLACE THEM WHERE NEEDED !!!" 30320 COLOR 7,0 30360 LOCATE 3,1:PRINT N1$;", ";N2$;" ";N3$ 30400 LOCATE 3,30:PRINT "BIRTH DATE : ";N4$ 30440 LOCATE 3,54:PRINT " SS# : ";N5$ 30480 LOCATE 5,3:PRINT "# DEPENDENTS : ";N6$ 30520 N7=VAL(N7$):LOCATE 5,30:PRINT "SALARY : $" 30560 LOCATE 5,41:PRINT USING "###,###.##";N7 30600 N8=VAL(N8$):LOCATE 5,54:PRINT " FED TAX RATE : ":LOCATE 5,70:PRINT USING "###.##";N8:LOCATE 5,78:PRINT "%":N8$=STR$(N8) 30640 N9=VAL(N9$):LOCATE 7,3:PRINT "ST. TAX RATE : ":LOCATE 7,18:PRINT USING "###.##";N9:LOCATE 7,25:PRINT "%":N9$=STR$(N9) 30680 LOCATE 11,4:PRINT "P.P. END : ";N14$ 30720 N15T=VAL(N7$):N15=N15T/24:FX1=N15*100:FX2=FIX(FX1):N15=FX2/100:N15$=STR$(N15) 30760 LOCATE 11,31:PRINT "GROSS : $ ":LOCATE 11,42:PRINT USING "##,###.##";N15 30800 N16=N15*FICA1:FX1=N16*100:FX2=FIX(FX1):N16=FX2/100:N16$=STR$(N16) 30840 LOCATE 11,55:PRINT "FICA : $ ":LOCATE 11,68:PRINT USING "##,####.##";N16 30880 FED1=VAL(N8$)/100:N17=N15*FED1:FX1=N17*100:FX2=FIX(FX1):N17=FX2/100:N17$=STR$(N17) 30920 LOCATE 13,4:PRINT "FED TAX : $ ":LOCATE 13,19:PRINT USING "##,###.##";N17 30960 N18=N15*STAX:FX1=N18*100:FX2=FIX(FX1):N18=FX2/100:N18$=STR$(N18) 31000 LOCATE 13,31:PRINT "ST TAX : $ ":LOCATE 13,42:PRINT USING "##,###.##";N18 31040 N19=N15-(N16+N17+N18):N19$=STR$(N19) 31080 LOCATE 13,55:PRINT "NET : $ ":LOCATE 13,69:PRINT USING "##,###.##";N19 31120 N20T=N15*FICA2:N20=N20T+N16+N17:N20$=STR$(N20) 31160 LOCATE 15,4:PRINT "FED LIAB : $ ":LOCATE 15,19:PRINT USING "##,###.##";N20 31200 N21=VAL(N18$):N21$=STR$(N21) 31240 LOCATE 15,31:PRINT "ST LIAB : $ ":LOCATE 15,42:PRINT USING "##,###.##";N21 31280 LOCATE 17,4:PRINT N22$ 31320 LOCATE 18,4:PRINT N23$ 31360 LOCATE 19,4:PRINT N24$ 31400 LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,12:PRINT "SELECT NUMBER TO CHANGE OR" 31440 COLOR 2,0:LOCATE 22,39:PRINT "F" 31480 COLOR 7,0:LOCATE 22,40:LINE INPUT "=FINISH TO END FILE CHANGE : ";K$ 31520 GOSUB 56360 31560 LOCATE 22,1:PRINT STRING$(77,32) 31600 IF K$="F" OR K$="f" THEN 32080 31640 IF K$="1" THEN LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,22:LINE INPUT "ENTER DATE OF BIRTH : ";N4$:K$=N4$:GOSUB 56360:N4$=K$:K$="" 31680 IF K$="2" THEN LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,22:LINE INPUT "ENTER SOCIAL SECURITY # : ";N5$:K$=N5$:GOSUB 56360:N5$=K$:K$="" 31720 IF K$="3" THEN LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,22:LINE INPUT "ENTER NUMBER OF DEPENDENTS : ";N6$:K$=N6$:GOSUB 56360:N6$=K$:K$="" 31760 IF K$="4" THEN LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,22:LINE INPUT "ENTER ANNUAL SALARY : ";N7$:K$=N7$:GOSUB 56360:N7$=K$:K$="" 31800 IF K$="5" THEN LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,22:LINE INPUT "ENTER FED TAX RATE : ";N8$:K$=N8$:GOSUB 56360:N8$=K$:K$="" 31840 IF K$="6" THEN LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,22:LINE INPUT "ENTER STATE TAX RATE : ";N9$:K$=N9$:GOSUB 56360:N9$=K$:STAX=VAL(N9$)/100:K$="" 31880 IF K$="7" THEN LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,22:LINE INPUT "ENTER PAY PERIOD END : ";N14$:K$=N14$:GOSUB 56360:N14$=K$:K$="" 31920 IF K$="8" THEN LOCATE 17,1:PRINT STRING$(73,32):LOCATE 22,1:PRINT "ENTER COMMENTS :":LOCATE 22,18:PRINT STRING$(55,176):LOCATE 22,18:LINE INPUT "";N22$:K$=N22$:GOSUB 56360:N22$=K$:K$="" 31960 IF K$="9" THEN LOCATE 18,1:PRINT STRING$(73,32):LOCATE 22,1:PRINT "ENTER COMMENTS :":LOCATE 22,18:PRINT STRING$(55,176):LOCATE 22,18:LINE INPUT "";N23$:K$=N23$:GOSUB 56360:N23$=K$:K$="" 32000 IF K$="10" THEN LOCATE 19,1:PRINT STRING$(73,32):LOCATE 22,1:PRINT "ENTER COMMENTS :":LOCATE 22,18:PRINT STRING$(55,176):LOCATE 22,18:LINE INPUT "";N24$:K$=N24$:GOSUB 56360:N24$=K$:K$="" 32040 GOTO 29760 32080 IF S=1 THEN KILL "1.DAT" 32120 IF S=2 THEN KILL "2.DAT" 32160 IF S=3 THEN KILL "3.DAT" 32200 IF S=4 THEN KILL "4.DAT" 32240 IF S=5 THEN KILL "5.DAT" 32280 IF S=6 THEN KILL "6.DAT" 32320 IF S=7 THEN KILL "7.DAT" 32360 IF S=8 THEN KILL "8.DAT" 32400 IF S=9 THEN KILL "9.DAT" 32440 IF S=10 THEN KILL "10.DAT" 32480 IF S=11 THEN KILL "11.DAT" 32520 IF S=12 THEN KILL "12.DAT" 32560 IF S=13 THEN KILL "13.DAT" 32600 IF S=14 THEN KILL "14.DAT" 32640 IF S=15 THEN KILL "15.DAT" 32680 IF S=16 THEN KILL "16.DAT" 32720 IF S=17 THEN KILL "17.DAT" 32760 IF S=18 THEN KILL "18.DAT" 32800 IF S=19 THEN KILL "19.DAT" 32840 IF S=20 THEN KILL "20.DAT" 32880 IF S=21 THEN KILL "21.DAT" 32920 IF S=22 THEN KILL "22.DAT" 32960 IF S=23 THEN KILL "23.DAT" 33000 IF S=24 THEN KILL "24.DAT" 33040 N1$=N1$+",":N2$=N2$+",":N3$=N3$+",":N4$=N4$+",":N5$=N5$+",":N6$=N6$+",":N7$=N7$+",":N8$=N8$+",":N9$=N9$+",":N10$=N10$+",":N11$=N11$+",":N12$=N12$+",":N13$=N13$+",":N14$=N14$+",":N15$=N15$+",":N16$=N16$+",":N17$=N17$+",":N18$=N18$+"," 33080 N19$=N19$+",":N20$=N20$+",":N21$=N21$+",":N22$=N22$+",":N23$=N23$+",":N24$=N24$+"," 33120 IF S=1 THEN F$="1" 33160 IF S=2 THEN F$="2" 33200 IF S=3 THEN F$="3" 33240 IF S=4 THEN F$="4" 33280 IF S=5 THEN F$="5" 33320 IF S=6 THEN F$="6" 33360 IF S=7 THEN F$="7" 33400 IF S=8 THEN F$="8" 33440 IF S=9 THEN F$="9" 33480 IF S=10 THEN F$="10" 33520 IF S=11 THEN F$="11" 33560 IF S=12 THEN F$="12" 33600 IF S=13 THEN F$="13" 33640 IF S=14 THEN F$="14" 33680 IF S=15 THEN F$="15" 33720 IF S=16 THEN F$="16" 33760 IF S=17 THEN F$="17" 33800 IF S=18 THEN F$="18" 33840 IF S=19 THEN F$="19" 33880 IF S=20 THEN F$="20" 33920 IF S=21 THEN F$="21" 33960 IF S=22 THEN F$="22" 34000 IF S=23 THEN F$="23" 34040 IF S=24 THEN F$="24" 34080 DT$=F$+".DAT" 34120 OPEN DT$ FOR OUTPUT AS #1 34160 PRINT #1,N1$,N2$,N3$,N4$,N5$,N6$,N7$,N8$,N9$,N10$,N11$,N12$,N13$,N14$,N15$,N16$,N17$,N18$,N19$,N20$,N21$,N22$,N23$,N24$ 34200 CLOSE 34205 ON ERROR GOTO 0 34240 GOTO 3280 34280 REM *********** VIEW HOURLY WAGE FILE 34320 CLS:COLOR 7,0 34360 IF H=1 THEN F$="101" 34400 IF H=2 THEN F$="102" 34440 IF H=3 THEN F$="103" 34480 IF H=4 THEN F$="104" 34520 IF H=5 THEN F$="105" 34560 IF H=6 THEN F$="106" 34600 IF H=7 THEN F$="107" 34640 IF H=8 THEN F$="108" 34680 IF H=9 THEN F$="109" 34720 IF H=10 THEN F$="110" 34760 IF H=11 THEN F$="111" 34800 IF H=12 THEN F$="112" 34840 IF H=13 THEN F$="113" 34880 IF H=14 THEN F$="114" 34920 IF H=15 THEN F$="115" 34960 IF H=16 THEN F$="116" 35000 IF H=17 THEN F$="117" 35040 IF H=18 THEN F$="118" 35080 IF H=19 THEN F$="119" 35120 IF H=20 THEN F$="120" 35160 IF H=21 THEN F$="121" 35200 IF H=22 THEN F$="122" 35240 IF H=23 THEN F$="123" 35280 IF H=24 THEN F$="124" 35320 DT$=F$+".DAT" 35360 OPEN DT$ FOR INPUT AS #1 35400 INPUT #1,N1$,N2$,N3$,N4$,N5$,N6$,N7$,N8$,N9$,N10$,N11$,N12$,N13$,N14$,N15$,N16$,N17$,N18$,N19$,N20$,N21$,N22$,N23$,N24$ 35440 CLOSE 35480 STAX=VAL(N9$)/100 35520 CLS:COLOR 7,0:LOCATE 1,30:PRINT "HOURLY EMPLOYEE" 35560 LOCATE 2,1:PRINT R$ 35600 COLOR 2,0:LOCATE 3,28:PRINT "1" 35640 LOCATE 3,53:PRINT "2" 35680 LOCATE 5,1:PRINT "3" 35720 LOCATE 5,28:PRINT "4" 35760 LOCATE 5,53:PRINT "5" 35800 LOCATE 7,1:PRINT "6" 35840 LOCATE 9,1:PRINT "7" 35880 LOCATE 9,28:PRINT "8" 35920 COLOR 7,0:LOCATE 8,1:PRINT R$ 35960 LOCATE 14,1:PRINT R$ 36000 COLOR 2,0:LOCATE 11,1:PRINT "9" 36040 LOCATE 17,1:PRINT "10" 36080 LOCATE 18,1:PRINT "11" 36120 LOCATE 19,1:PRINT "12" 36160 COLOR 4,0:LOCATE 21,7:PRINT "DO NOT ENTER ANY COMMA'S. PROGRAM WILL PLACE THEM WHERE NEEDED !!!" 36200 COLOR 7,0:LOCATE 3,1:PRINT N1$;", ";N2$;" ";N3$ 36240 LOCATE 3,30:PRINT "BIRTH DATE : ";N4$ 36280 LOCATE 3,54:PRINT " SS# : ";N5$ 36320 LOCATE 5,3:PRINT "# DEPENDENTS : ";N6$ 36360 N7=VAL(N7$):LOCATE 5,30:PRINT "HOURLY WAGE : $" 36400 LOCATE 5,45:PRINT USING "###.##";N7 36440 N8=VAL(N8$):LOCATE 5,54:PRINT " FED TAX RATE : ":LOCATE 5,70:PRINT USING "###.##";N8:LOCATE 5,78:PRINT "%":N8$=STR$(N8) 36480 N9=VAL(N9$):LOCATE 7,3:PRINT "ST. TAX RATE : ":LOCATE 7,18:PRINT USING "###.##";N9:LOCATE 7,25:PRINT "%":N9$=STR$(N9) 36520 LOCATE 5,77:PRINT "%":N11=VAL(N11$):LOCATE 9,4:PRINT "REG HOURS : ":LOCATE 9,21:PRINT USING "###.##";N11 36560 N11$=STR$(N11):N12=VAL(N12$):LOCATE 9,31:PRINT "OT HOURS : ":LOCATE 9,45:PRINT USING "###.##";N12 36600 LOCATE 11,4:PRINT "P.P. END : ";N14$ 36640 REG=N11*VAL(N7$):OT1=1.5*VAL(N7$):OT2=OT1*VAL(N12$) 36680 N15=REG+OT2:FX1=N15*100:FX2=FIX(FX1):N15=FX2/100:N15$=STR$(N15) 36720 LOCATE 11,31:PRINT "GROSS : $ ":LOCATE 11,42:PRINT USING "##,###.##";N15 36760 N16=N15*FICA1:FX1=N16*100:FX2=FIX(FX1):N16=FX2/100:N16$=STR$(N16) 36800 LOCATE 11,55:PRINT "FICA : $ ":LOCATE 11,68:PRINT USING "##,####.##";N16 36840 FED1=VAL(N8$)/100:N17=N15*FED1:FX1=N17*100:FX2=FIX(FX1):N17=FX2/100:N17$=STR$(N17) 36880 LOCATE 13,4:PRINT "FED TAX : $ ":LOCATE 13,18:PRINT USING "##,###.##";N17 36920 N18=N15*STAX:FX1=N18*100:FX2=FIX(FX1):N18=FX2/100:N18$=STR$(N18) 36960 LOCATE 13,31:PRINT "ST TAX : $ ":LOCATE 13,42:PRINT USING "##,###.##";N18 37000 N19=N15-(N16+N17+N18):N19$=STR$(N19) 37040 LOCATE 13,55:PRINT "NET : $ ":LOCATE 13,69:PRINT USING "##,###.##";N19 37080 N20T=N15*FICA2:N20=N20T+N16+N17:N20$=STR$(N20) 37120 LOCATE 15,4:PRINT "FED LIAB : $ ":LOCATE 15,18:PRINT USING "##,###.##";N20 37160 N21=VAL(N18$):N21$=STR$(N21) 37200 LOCATE 15,31:PRINT "ST LIAB : $ ":LOCATE 15,42:PRINT USING "##,###.##";N21 37240 LOCATE 17,4:PRINT N22$ 37280 LOCATE 18,4:PRINT N23$ 37320 LOCATE 19,4:PRINT N24$ 37360 LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,12:PRINT "SELECT NUMBER TO CHANGE OR" 37400 COLOR 2,0:LOCATE 22,39:PRINT "F" 37440 COLOR 7,0:LOCATE 22,40:LINE INPUT "=FINISH TO END FILE CHANGE : ";K$ 37480 LOCATE 22,1:PRINT STRING$(77,32) 37520 GOSUB 56360 37560 IF K$="F" OR K$="f" THEN 38120 37600 IF K$="1" THEN LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,22:LINE INPUT "ENTER DATE OF BIRTH : ";N4$:K$=N4$:GOSUB 56360:N4$=K$:K$="" 37640 IF K$="2" THEN LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,22:LINE INPUT "ENTER SOCIAL SECURITY # : ";N5$:K$=N5$:GOSUB 56360:N5$=K$:K$="" 37680 IF K$="3" THEN LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,22:LINE INPUT "ENTER NUMBER OF DEPENDENTS : ";N6$:K$=N6$:GOSUB 56360:N6$=K$:K$="" 37720 IF K$="4" THEN LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,22:LINE INPUT "ENTER HOURLY WAGE : ";N7$:K$=N7$:GOSUB 56360:N7$=K$:K$="" 37760 IF K$="5" THEN LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,22:LINE INPUT "ENTER FED TAX RATE : ";N8$:K$=N8$:GOSUB 56360:N8$=K$:K$="" 37800 IF K$="6" THEN LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,22:LINE INPUT "ENTER STATE TAX RATE : ";N9$:K$=N9$:GOSUB 56360:N9$=K$:STAX=VAL(N9$)/100:K$="" 37840 IF K$="7" THEN LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,22:LINE INPUT "ENTER REG HOURS WORKED : ";N11$:K$=N11$:GOSUB 56360:N11$=K$:K$="" 37880 IF K$="8" THEN LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,22:LINE INPUT "ENTER OT HOURS WORKED : ";N12$:K$=N12$:GOSUB 56360:N12$=K$:K$="" 37920 IF K$="9" THEN LOCATE 22,1:PRINT STRING$(77,32):LOCATE 22,22:LINE INPUT "ENTER PAY PERIOD END : ";N14$:K$=N14$:GOSUB 56360:N14$=K$:K$="" 37960 IF K$="10" THEN LOCATE 17,1:PRINT STRING$(73,32):LOCATE 22,1:PRINT "ENTER COMMENTS :":LOCATE 22,18:PRINT STRING$(55,176):LOCATE 22,18:LINE INPUT "";N22$:K$=N22$:GOSUB 56360:N22$=K$:K$="" 38000 IF K$="11" THEN LOCATE 18,1:PRINT STRING$(73,32):LOCATE 22,1:PRINT "ENTER COMMENTS :":LOCATE 22,18:PRINT STRING$(55,176):LOCATE 22,18:LINE INPUT "";N23$:K$=N23$:GOSUB 56360:N23$=K$:K$="" 38040 IF K$="12" THEN LOCATE 19,1:PRINT STRING$(73,32):LOCATE 22,1:PRINT "ENTER COMMENTS :":LOCATE 22,18:PRINT STRING$(55,176):LOCATE 22,18:LINE INPUT "";N24$:K$=N24$:GOSUB 56360:N24$=K$:K$="" 38080 GOTO 35560 38120 IF H=1 THEN KILL "101.DAT" 38160 IF H=2 THEN KILL "102.DAT" 38200 IF H=3 THEN KILL "103.DAT" 38240 IF H=4 THEN KILL "104.DAT" 38280 IF H=5 THEN KILL "105.DAT" 38320 IF H=6 THEN KILL "106.DAT" 38360 IF H=7 THEN KILL "107.DAT" 38400 IF H=8 THEN KILL "108.DAT" 38440 IF H=9 THEN KILL "109.DAT" 38480 IF H=10 THEN KILL "110.DAT" 38520 IF H=11 THEN KILL "111.DAT" 38560 IF H=12 THEN KILL "112.DAT" 38600 IF H=13 THEN KILL "113.DAT" 38640 IF H=14 THEN KILL "114.DAT" 38680 IF H=15 THEN KILL "115.DAT" 38720 IF H=16 THEN KILL "116.DAT" 38760 IF H=17 THEN KILL "117.DAT" 38800 IF H=18 THEN KILL "118.DAT" 38840 IF H=19 THEN KILL "119.DAT" 38880 IF H=20 THEN KILL "120.DAT" 38920 IF H=21 THEN KILL "121.DAT" 38960 IF H=22 THEN KILL "122.DAT" 39000 IF H=23 THEN KILL "123.DAT" 39040 IF H=24 THEN KILL "124.DAT" 39080 N1$=N1$+",":N2$=N2$+",":N3$=N3$+",":N4$=N4$+",":N5$=N5$+",":N6$=N6$+",":N7$=N7$+",":N8$=N8$+",":N9$=N9$+",":N10$=N10$+",":N11$=N11$+",":N12$=N12$+",":N13$=N13$+",":N14$=N14$+",":N15$=N15$+",":N16$=N16$+",":N17$=N17$+",":N18$=N18$+"," 39120 N19$=N19$+",":N20$=N20$+",":N21$=N21$+",":N22$=N22$+",":N23$=N23$+",":N24$=N24$+"," 39160 IF H=1 THEN F$="101" 39200 IF H=2 THEN F$="102" 39240 IF H=3 THEN F$="103" 39280 IF H=4 THEN F$="104" 39320 IF H=5 THEN F$="105" 39360 IF H=6 THEN F$="106" 39400 IF H=7 THEN F$="107" 39440 IF H=8 THEN F$="108" 39480 IF H=9 THEN F$="109" 39520 IF H=10 THEN F$="110" 39560 IF H=11 THEN F$="111" 39600 IF H=12 THEN F$="112" 39640 IF H=13 THEN F$="113" 39680 IF H=14 THEN F$="114" 39720 IF H=15 THEN F$="115" 39760 IF H=16 THEN F$="116" 39800 IF H=17 THEN F$="117" 39840 IF H=18 THEN F$="118" 39880 IF H=19 THEN F$="119" 39920 IF H=20 THEN F$="120" 39960 IF H=21 THEN F$="121" 40000 IF H=22 THEN F$="122" 40040 IF H=23 THEN F$="123" 40080 IF H=24 THEN F$="124" 40120 DT$=F$+".DAT" 40160 OPEN DT$ FOR OUTPUT AS #1 40200 PRINT #1,N1$,N2$,N3$,N4$,N5$,N6$,N7$,N8$,N9$,N10$,N11$,N12$,N13$,N14$,N15$,N16$,N17$,N18$,N19$,N20$,N21$,N22$,N23$,N24$ 40240 CLOSE 40245 ON ERROR GOTO 0 40280 GOTO 10200 40320 REM ************ PRINT FILES 40360 CLS:COLOR 7,0:LOCATE 12,22 40400 ON ERROR GOTO 56800 40440 IF RET=1 THEN 40520 ELSE 43040 40480 REM ************ PRINT SALARIED ************** 40520 IF P=1 THEN F$="1" 40560 IF P=2 THEN F$="2" 40600 IF P=3 THEN F$="3" 40640 IF P=4 THEN F$="4" 40680 IF P=5 THEN F$="5" 40720 IF P=6 THEN F$="6" 40760 IF P=7 THEN F$="7" 40800 IF P=8 THEN F$="8" 40840 IF P=9 THEN F$="9" 40880 IF P=10 THEN F$="10" 40920 IF P=11 THEN F$="11" 40960 IF P=12 THEN F$="12" 41000 IF P=13 THEN F$="13" 41040 IF P=14 THEN F$="14" 41080 IF P=15 THEN F$="15" 41120 IF P=16 THEN F$="16" 41160 IF P=17 THEN F$="17" 41200 IF P=18 THEN F$="18" 41240 IF P=19 THEN F$="19" 41280 IF P=20 THEN F$="20" 41320 IF P=21 THEN F$="21" 41360 IF P=22 THEN F$="22" 41400 IF P=23 THEN F$="23" 41440 IF P=24 THEN F$="24" 41480 IF P=25 THEN 45760 41520 DT$=F$+".DAT" 41560 OPEN DT$ FOR INPUT AS #1 41600 INPUT #1,N1$,N2$,N3$,N4$,N5$,N6$,N7$,N8$,N9$,N10$,N11$,N12$,N13$,N14$,N15$,N16$,N17$,N18$,N19$,N20$,N21$,N22$,N23$,N24$ 41640 CLOSE 41680 CLS:COLOR 4,0:LOCATE 12,20:PRINT "PLEASE STANDBY.............." 41720 XX$=DATE$ 41760 LPRINT " ";XX$ 41800 LPRINT:LPRINT:LPRINT " SALARIED EMPLOYEE" 41840 LPRINT R$ 41880 LPRINT " ";N1$;", ";N2$;" ";N3$ 41920 LPRINT:LPRINT " BIRTH DATE : ";N4$ 41960 LPRINT:LPRINT " SOCIAL SECURITY # : ";N5$ 42000 LPRINT:LPRINT " # OF DEPENDENTS : ";N6$ 42040 LPRINT:N7=VAL(N7$):LPRINT " SALARY : $ "; 42080 LPRINT USING "###,###.##";N7 42120 LPRINT:N8=VAL(N8$):LPRINT " FED TAX RATE : % "; 42160 LPRINT USING "###.##";N8 42200 LPRINT:N9=VAL(N9$):LPRINT " ST. TAX RATE : % "; 42240 LPRINT USING "###.##";N9 42280 LPRINT:LPRINT " PAY PERIOD END : ";N14$ 42320 LPRINT:N15=VAL(N15$):LPRINT " GROSS PAY : $ "; 42360 LPRINT USING "###,###.##";N15 42400 LPRINT:N16=VAL(N16$):LPRINT " FICA : $ "; 42440 LPRINT USING "###,###.##";N16 42480 LPRINT:N17=VAL(N17$):LPRINT " FED TAX : $ "; 42520 LPRINT USING "###,###.##";N17 42560 LPRINT:N18=VAL(N18$):LPRINT " STATE TAX : $ "; 42600 LPRINT USING "###,###.##";N18 42640 LPRINT:N19=VAL(N19$):LPRINT " NET PAY : $ "; 42680 LPRINT USING "###,###.##";N19 42720 LPRINT:N20=VAL(N20$):LPRINT " FED LIABILITY : $ "; 42760 LPRINT USING "###,###.##";N20 42800 LPRINT:N21=VAL(N21$):LPRINT " STATE LIABILITY : $ "; 42840 LPRINT USING "###,###.##";N21 42880 LPRINT:LPRINT N22$:LPRINT N23$:LPRINT N24$ 42920 LPRINT CHR$(140); 42960 ON ERROR GOTO 0 43000 GOTO 3280 43040 REM ********* PRINT HOURLY 43080 CLS:IF P=1 THEN F$="101" 43120 IF P=2 THEN F$="102" 43160 IF P=3 THEN F$="103" 43200 IF P=4 THEN F$="104" 43240 IF P=5 THEN F$="105" 43280 IF P=6 THEN F$="106" 43320 IF P=7 THEN F$="107" 43360 IF P=8 THEN F$="108" 43400 IF P=9 THEN F$="109" 43440 IF P=10 THEN F$="110" 43480 IF P=11 THEN F$="111" 43520 IF P=12 THEN F$="112" 43560 IF P=13 THEN F$="113" 43600 IF P=14 THEN F$="114" 43640 IF P=15 THEN F$="115" 43680 IF P=16 THEN F$="116" 43720 IF P=17 THEN F$="117" 43760 IF P=18 THEN F$="118" 43800 IF P=19 THEN F$="119" 43840 IF P=20 THEN F$="120" 43880 IF P=21 THEN F$="121" 43920 IF P=22 THEN F$="122" 43960 IF P=23 THEN F$="123" 44000 IF P=24 THEN F$="124" 44040 IF P=25 THEN 45760 44080 DT$=F$+".DAT" 44120 OPEN DT$ FOR INPUT AS #1 44160 INPUT #1,N1$,N2$,N3$,N4$,N5$,N6$,N7$,N8$,N9$,N10$,N11$,N12$,N13$,N14$,N15$,N16$,N17$,N18$,N19$,N20$,N21$,N22$,N23$,N24$ 44200 CLOSE 44240 CLS:COLOR 4,0:LOCATE 12,20:PRINT "PLEASE STANDBY.............." 44280 XX$=DATE$ 44320 LPRINT " ";XX$ 44360 LPRINT:LPRINT:LPRINT " HOURLY EMPLOYEE" 44400 LPRINT R$ 44440 LPRINT " ";N1$;", ";N2$;" ";N3$ 44480 LPRINT:LPRINT " BIRTH DATE : ";N4$ 44520 LPRINT:LPRINT " SOCIAL SECURITY # : ";N5$ 44560 LPRINT:LPRINT " # OF DEPENDENTS : ";N6$ 44600 LPRINT:N7=VAL(N7$):LPRINT " HOURLY WAGE : $ "; 44640 LPRINT USING "###.##";N7 44680 LPRINT:N8=VAL(N8$):LPRINT " FED TAX RATE : % "; 44720 LPRINT USING "###.##";N8 44760 LPRINT:N9=VAL(N9$):LPRINT " ST. TAX RATE : % "; 44800 LPRINT USING "###.##";N9 44840 LPRINT:N11=VAL(N11$):LPRINT " REGULAR HOURS : "; 44880 LPRINT USING "###.##";N11 44920 LPRINT:N12=VAL(N12$):LPRINT " OVERTIME HOURS : "; 44960 LPRINT USING "###.##";N12 45000 LPRINT:LPRINT " PAY PERIOD END : ";N14$ 45040 LPRINT:N15=VAL(N15$):LPRINT " GROSS PAY : $ "; 45080 LPRINT USING "###,###.##";N15 45120 LPRINT:N16=VAL(N16$):LPRINT " FICA : $ "; 45160 LPRINT USING "###,###.##";N16 45200 LPRINT:N17=VAL(N17$):LPRINT " FED TAX : $ "; 45240 LPRINT USING "###,###.##";N17 45280 LPRINT:N18=VAL(N18$):LPRINT " STATE TAX : $ "; 45320 LPRINT USING "###,###.##";N18 45360 LPRINT:N19=VAL(N19$):LPRINT " NET PAY : $ "; 45400 LPRINT USING "###,###.##";N19 45440 LPRINT:N20=VAL(N20$):LPRINT " FED LIABILITY : $ "; 45480 LPRINT USING "###,###.##";N20 45520 LPRINT:N21=VAL(N21$):LPRINT " STATE LIABILITY : $ "; 45560 LPRINT USING "###,###.##";N21 45600 LPRINT:LPRINT N22$:LPRINT N23$:LPRINT N24$ 45640 LPRINT CHR$(140); 45680 ON ERROR GOTO 0 45720 GOTO 10200 45760 REM ************ PRINT ALL FILES 45800 CLS:COLOR 7,0 45840 ON ERROR GOTO 56800 45880 IF RET=2 THEN 48520 45920 CLS:COLOR 4,0:LOCATE 12,20:PRINT "PLEASE STANDBY.............." 45960 REM ********** PRINT ALL SALARIED ************** 46000 OPEN "NAM.DAT" FOR INPUT AS #1 46040 INPUT #1,Z1$,Z2$,Z3$,Z4$,Z5$,Z6$,Z7$,Z8$,Z9$,Z10$,Z11$,Z12$,Z13$,Z14$,Z15$,Z16$,Z17$,Z18$,Z19$,Z20$,Z21$,Z22$,Z23$,Z24$ 46080 CLOSE 46120 IF Z1$="0" THEN 46160 ELSE OPEN "1.DAT" FOR INPUT AS #1:GOSUB 47160 46160 IF Z2$="0" THEN 46200 ELSE OPEN "2.DAT" FOR INPUT AS #1:GOSUB 47160 46200 IF Z3$="0" THEN 46240 ELSE OPEN "3.DAT" FOR INPUT AS #1:GOSUB 47160 46240 IF Z4$="0" THEN 46280 ELSE OPEN "4.DAT" FOR INPUT AS #1:GOSUB 47160 46280 IF Z5$="0" THEN 46320 ELSE OPEN "5.DAT" FOR INPUT AS #1:GOSUB 47160 46320 IF Z6$="0" THEN 46360 ELSE OPEN "6.DAT" FOR INPUT AS #1:GOSUB 47160 46360 IF Z7$="0" THEN 46400 ELSE OPEN "7.DAT" FOR INPUT AS #1:GOSUB 47160 46400 IF Z8$="0" THEN 46440 ELSE OPEN "8.DAT" FOR INPUT AS #1:GOSUB 47160 46440 IF Z9$="0" THEN 46480 ELSE OPEN "9.DAT" FOR INPUT AS #1:GOSUB 47160 46480 IF Z10$="0" THEN 46520 ELSE OPEN "10.DAT" FOR INPUT AS #1:GOSUB 47160 46520 IF Z11$="0" THEN 46560 ELSE OPEN "11.DAT" FOR INPUT AS #1:GOSUB 47160 46560 IF Z12$="0" THEN 46600 ELSE OPEN "12.DAT" FOR INPUT AS #1:GOSUB 47160 46600 IF Z13$="0" THEN 46640 ELSE OPEN "13.DAT" FOR INPUT AS #1:GOSUB 47160 46640 IF Z14$="0" THEN 46680 ELSE OPEN "14.DAT" FOR INPUT AS #1:GOSUB 47160 46680 IF Z15$="0" THEN 46720 ELSE OPEN "15.DAT" FOR INPUT AS #1:GOSUB 47160 46720 IF Z16$="0" THEN 46760 ELSE OPEN "16.DAT" FOR INPUT AS #1:GOSUB 47160 46760 IF Z17$="0" THEN 46800 ELSE OPEN "17.DAT" FOR INPUT AS #1:GOSUB 47160 46800 IF Z18$="0" THEN 46840 ELSE OPEN "18.DAT" FOR INPUT AS #1:GOSUB 47160 46840 IF Z19$="0" THEN 46880 ELSE OPEN "19.DAT" FOR INPUT AS #1:GOSUB 47160 46880 IF Z20$="0" THEN 46920 ELSE OPEN "20.DAT" FOR INPUT AS #1:GOSUB 47160 46920 IF Z21$="0" THEN 46960 ELSE OPEN "21.DAT" FOR INPUT AS #1:GOSUB 47160 46960 IF Z22$="0" THEN 47000 ELSE OPEN "22.DAT" FOR INPUT AS #1:GOSUB 47160 47000 IF Z23$="0" THEN 47040 ELSE OPEN "23.DAT" FOR INPUT AS #1:GOSUB 47160 47040 IF Z24$="0" THEN 47120 ELSE OPEN "24.DAT" FOR INPUT AS #1:GOSUB 47160 47080 ON ERROR GOTO 0 47120 GOTO 3280 47160 INPUT #1,N1$,N2$,N3$,N4$,N5$,N6$,N7$,N8$,N9$,N10$,N11$,N12$,N13$,N14$,N15$,N16$,N17$,N18$,N19$,N20$,N21$,N22$,N23$,N24$ 47200 CLOSE 47240 XX$=DATE$ 47280 LPRINT " ";XX$ 47320 LPRINT:LPRINT:LPRINT " SALARIED EMPLOYEE" 47360 LPRINT R$ 47400 LPRINT " ";N1$;", ";N2$;" ";N3$ 47440 LPRINT:LPRINT " BIRTH DATE : ";N4$ 47480 LPRINT:LPRINT " SOCIAL SECURITY # : ";N5$ 47520 LPRINT:LPRINT " # OF DEPENDENTS : ";N6$ 47560 LPRINT:N7=VAL(N7$):LPRINT " SALARY : $ "; 47600 LPRINT USING "###,###.##";N7 47640 LPRINT:N8=VAL(N8$):LPRINT " FED TAX RATE : % "; 47680 LPRINT USING "###.##";N8 47720 LPRINT:N9=VAL(N9$):LPRINT " ST. TAX RATE : % "; 47760 LPRINT USING "###.##";N9 47800 LPRINT:LPRINT " PAY PERIOD END : ";N14$ 47840 LPRINT:N15=VAL(N15$):LPRINT " GROSS PAY : $ "; 47880 LPRINT USING "###,###.##";N15 47920 LPRINT:N16=VAL(N16$):LPRINT " FICA : $ "; 47960 LPRINT USING "###,###.##";N16 48000 LPRINT:N17=VAL(N17$):LPRINT " FED TAX : $ "; 48040 LPRINT USING "###,###.##";N17 48080 LPRINT:N18=VAL(N18$):LPRINT " STATE TAX : $ "; 48120 LPRINT USING "###,###.##";N18 48160 LPRINT:N19=VAL(N19$):LPRINT " NET PAY : $ "; 48200 LPRINT USING "###,###.##";N19 48240 LPRINT:N20=VAL(N20$):LPRINT " FED LIABILITY : $ "; 48280 LPRINT USING "###,###.##";N20 48320 LPRINT:N21=VAL(N21$):LPRINT " STATE LIABILITY : $ "; 48360 LPRINT USING "###,###.##";N21 48400 LPRINT:LPRINT N22$:LPRINT N23$:LPRINT N24$ 48440 LPRINT CHR$(140); 48480 RETURN 48520 REM ********** PRINT ALL HOURLY 48560 CLS:COLOR 7,0 48600 CLS:COLOR 4,0:LOCATE 12,20:PRINT "PLEASE STANDBY.............." 48640 OPEN "NAM1.DAT" FOR INPUT AS #1 48680 INPUT #1,Z1$,Z2$,Z3$,Z4$,Z5$,Z6$,Z7$,Z8$,Z9$,Z10$,Z11$,Z12$,Z13$,Z14$,Z15$,Z16$,Z17$,Z18$,Z19$,Z20$,Z21$,Z22$,Z23$,Z24$ 48720 CLOSE 48760 IF Z1$="0" THEN 48800 ELSE OPEN "101.DAT" FOR INPUT AS #1:GOSUB 49800 48800 IF Z2$="0" THEN 48840 ELSE OPEN "102.DAT" FOR INPUT AS #1:GOSUB 49800 48840 IF Z3$="0" THEN 48880 ELSE OPEN "103.DAT" FOR INPUT AS #1:GOSUB 49800 48880 IF Z4$="0" THEN 48920 ELSE OPEN "104.DAT" FOR INPUT AS #1:GOSUB 49800 48920 IF Z5$="0" THEN 48960 ELSE OPEN "105.DAT" FOR INPUT AS #1:GOSUB 49800 48960 IF Z6$="0" THEN 49000 ELSE OPEN "106.DAT" FOR INPUT AS #1:GOSUB 49800 49000 IF Z7$="0" THEN 49040 ELSE OPEN "107.DAT" FOR INPUT AS #1:GOSUB 49800 49040 IF Z8$="0" THEN 49080 ELSE OPEN "108.DAT" FOR INPUT AS #1:GOSUB 49800 49080 IF Z9$="0" THEN 49120 ELSE OPEN "109.DAT" FOR INPUT AS #1:GOSUB 49800 49120 IF Z10$="0" THEN 49160 ELSE OPEN "110.DAT" FOR INPUT AS #1:GOSUB 49800 49160 IF Z11$="0" THEN 49200 ELSE OPEN "111.DAT" FOR INPUT AS #1:GOSUB 49800 49200 IF Z12$="0" THEN 49240 ELSE OPEN "112.DAT" FOR INPUT AS #1:GOSUB 49800 49240 IF Z13$="0" THEN 49280 ELSE OPEN "113.DAT" FOR INPUT AS #1:GOSUB 49800 49280 IF Z14$="0" THEN 49320 ELSE OPEN "114.DAT" FOR INPUT AS #1:GOSUB 49800 49320 IF Z15$="0" THEN 49360 ELSE OPEN "115.DAT" FOR INPUT AS #1:GOSUB 49800 49360 IF Z16$="0" THEN 49400 ELSE OPEN "116.DAT" FOR INPUT AS #1:GOSUB 49800 49400 IF Z17$="0" THEN 49440 ELSE OPEN "117.DAT" FOR INPUT AS #1:GOSUB 49800 49440 IF Z18$="0" THEN 49480 ELSE OPEN "118.DAT" FOR INPUT AS #1:GOSUB 49800 49480 IF Z19$="0" THEN 49520 ELSE OPEN "119.DAT" FOR INPUT AS #1:GOSUB 49800 49520 IF Z20$="0" THEN 49560 ELSE OPEN "120.DAT" FOR INPUT AS #1:GOSUB 49800 49560 IF Z21$="0" THEN 49600 ELSE OPEN "121.DAT" FOR INPUT AS #1:GOSUB 49800 49600 IF Z22$="0" THEN 49640 ELSE OPEN "122.DAT" FOR INPUT AS #1:GOSUB 49800 49640 IF Z23$="0" THEN 49680 ELSE OPEN "123.DAT" FOR INPUT AS #1:GOSUB 49800 49680 IF Z24$="0" THEN 49760 ELSE OPEN "124.DAT" FOR INPUT AS #1:GOSUB 49800 49720 ON ERROR GOTO 0 49760 CLS:COLOR 7,0:GOTO 10200 49800 INPUT #1,N1$,N2$,N3$,N4$,N5$,N6$,N7$,N8$,N9$,N10$,N11$,N12$,N13$,N14$,N15$,N16$,N17$,N18$,N19$,N20$,N21$,N22$,N23$,N24$ 49840 CLOSE 49880 XX$=DATE$ 49920 LPRINT " ";XX$ 49960 LPRINT:LPRINT:LPRINT " HOURLY EMPLOYEE" 50000 LPRINT R$ 50040 LPRINT " ";N1$;", ";N2$;" ";N3$ 50080 LPRINT:LPRINT " BIRTH DATE : ";N4$ 50120 LPRINT:LPRINT " SOCIAL SECURITY # : ";N5$ 50160 LPRINT:LPRINT " # OF DEPENDENTS : ";N6$ 50200 LPRINT:N7=VAL(N7$):LPRINT " HOURLY WAGE : $ "; 50240 LPRINT USING "###.##";N7 50280 LPRINT:N8=VAL(N8$):LPRINT " FED TAX RATE : % "; 50320 LPRINT USING "###.##";N8 50360 LPRINT:N9=VAL(N9$):LPRINT " ST. TAX RATE : % "; 50400 LPRINT USING "###.##";N9 50440 LPRINT:N11=VAL(N11$):LPRINT " REGULAR HOURS : "; 50480 LPRINT USING "###.##";N11 50520 LPRINT:N12=VAL(N12$):LPRINT " OVERTIME HOURS : "; 50560 LPRINT USING "###.##";N12 50600 LPRINT:LPRINT " PAY PERIOD END : ";N14$ 50640 LPRINT:N15=VAL(N15$):LPRINT " GROSS PAY : $ "; 50680 LPRINT USING "###,###.##";N15 50720 LPRINT:N16=VAL(N16$):LPRINT " FICA : $ "; 50760 LPRINT USING "###,###.##";N16 50800 LPRINT:N17=VAL(N17$):LPRINT " FED TAX : $ "; 50840 LPRINT USING "###,###.##";N17 50880 LPRINT:N18=VAL(N18$):LPRINT " STATE TAX : $ "; 50920 LPRINT USING "###,###.##";N18 50960 LPRINT:N19=VAL(N19$):LPRINT " NET PAY : $ "; 51000 LPRINT USING "###,###.##";N19 51040 LPRINT:N20=VAL(N20$):LPRINT " FED LIABILITY : $ "; 51080 LPRINT USING "###,###.##";N20 51120 LPRINT:N21=VAL(N21$):LPRINT " STATE LIABILITY : $ "; 51160 LPRINT USING "###,###.##";N21 51200 LPRINT:LPRINT N22$:LPRINT N23$:LPRINT N24$ 51240 LPRINT CHR$(140); 51280 RETURN 51320 REM *********** PRINT EMPLOYER LIABILITY 51360 CLS:COLOR 7,0 51400 ON ERROR GOTO 56800 51440 FLIB=0:SLIB=0 51480 LOCATE 1,22:PRINT "PRINT EMPLOYER LIABILITY" 51520 LOCATE 2,1:PRINT R$ 51560 COLOR 2,0:LOCATE 4,10:PRINT "1" 51600 LOCATE 7,10:PRINT "2" 51640 LOCATE 10,10:PRINT "3" 51680 COLOR 7,0:LOCATE 4,12:PRINT "PRINT SALARIED TAX LIABILITIES" 51720 LOCATE 7,12:PRINT "PRINT HOURLY TAX LIABILITIES" 51760 LOCATE 10,12:PRINT "RETURN TO TAX MENU" 51800 LOCATE 22,22:LINE INPUT "SELECT BY NUMBER : ";K$ 51840 IF K$="1" OR K$="2" THEN CLS:COLOR 4,0:LOCATE 12,20:PRINT "PLEASE STANDBY.............." 51880 IF K$="3" THEN RETURN 51920 IF K$="2" THEN 53920 51960 IF K$="1" THEN 52040 52000 GOTO 51320 52040 REM ******** PRINT SALARIED LIABILITY 52080 OPEN "NAM.DAT" FOR INPUT AS #1 52120 INPUT #1,Z1$,Z2$,Z3$,Z4$,Z5$,Z6$,Z7$,Z8$,Z9$,Z10$,Z11$,Z12$,Z13$,Z14$,Z15$,Z16$,Z17$,Z18$,Z19$,Z20$,Z21$,Z22$,Z23$,Z24$ 52160 CLOSE 52200 XX$=DATE$ 52240 LPRINT " ";XX$ 52280 LPRINT :LPRINT :LPRINT " SALARIED TAX LIABILITY" 52320 LPRINT R$ 52360 LPRINT 52400 LPRINT " NAME";" ";" FED LIABILITY";" STATE LIABILITY" 52440 LPRINT R$ 52480 LPRINT 52520 IF Z1$="0" THEN 52560 ELSE OPEN "1.DAT" FOR INPUT AS #1:GOSUB 55800 52560 IF Z2$="0" THEN 52600 ELSE OPEN "2.DAT" FOR INPUT AS #1:GOSUB 55800 52600 IF Z3$="0" THEN 52640 ELSE OPEN "3.DAT" FOR INPUT AS #1:GOSUB 55800 52640 IF Z4$="0" THEN 52680 ELSE OPEN "4.DAT" FOR INPUT AS #1:GOSUB 55800 52680 IF Z5$="0" THEN 52720 ELSE OPEN "5.DAT" FOR INPUT AS #1:GOSUB 55800 52720 IF Z6$="0" THEN 52760 ELSE OPEN "6.DAT" FOR INPUT AS #1:GOSUB 55800 52760 IF Z7$="0" THEN 52800 ELSE OPEN "7.DAT" FOR INPUT AS #1:GOSUB 55800 52800 IF Z8$="0" THEN 52840 ELSE OPEN "8.DAT" FOR INPUT AS #1:GOSUB 55800 52840 IF Z9$="0" THEN 52880 ELSE OPEN "9.DAT" FOR INPUT AS #1:GOSUB 55800 52880 IF Z10$="0" THEN 52920 ELSE OPEN "10.DAT" FOR INPUT AS #1:GOSUB 55800 52920 IF Z11$="0" THEN 52960 ELSE OPEN "11.DAT" FOR INPUT AS #1:GOSUB 55800 52960 IF Z12$="0" THEN 53000 ELSE OPEN "12.DAT" FOR INPUT AS #1:GOSUB 55800 53000 IF Z13$="0" THEN 53040 ELSE OPEN "13.DAT" FOR INPUT AS #1:GOSUB 55800 53040 IF Z14$="0" THEN 53080 ELSE OPEN "14.DAT" FOR INPUT AS #1:GOSUB 55800 53080 IF Z15$="0" THEN 53120 ELSE OPEN "15.DAT" FOR INPUT AS #1:GOSUB 55800 53120 IF Z16$="0" THEN 53160 ELSE OPEN "16.DAT" FOR INPUT AS #1:GOSUB 55800 53160 IF Z17$="0" THEN 53200 ELSE OPEN "17.DAT" FOR INPUT AS #1:GOSUB 55800 53200 IF Z18$="0" THEN 53240 ELSE OPEN "18.DAT" FOR INPUT AS #1:GOSUB 55800 53240 IF Z19$="0" THEN 53280 ELSE OPEN "19.DAT" FOR INPUT AS #1:GOSUB 55800 53280 IF Z20$="0" THEN 53320 ELSE OPEN "20.DAT" FOR INPUT AS #1:GOSUB 55800 53320 IF Z21$="0" THEN 53360 ELSE OPEN "21.DAT" FOR INPUT AS #1:GOSUB 55800 53360 IF Z22$="0" THEN 53400 ELSE OPEN "22.DAT" FOR INPUT AS #1:GOSUB 55800 53400 IF Z23$="0" THEN 53440 ELSE OPEN "23.DAT" FOR INPUT AS #1:GOSUB 55800 53440 IF Z24$="0" THEN 53480 ELSE OPEN "24.DAT" FOR INPUT AS #1:GOSUB 55800 53480 LPRINT R$ 53520 LPRINT " "; 53560 ELIB$="TOTAL EMPLOYER LIABILITY" 53600 LPRINT USING "\ \";ELIB$; 53640 LPRINT " "; 53680 LPRINT USING "###,###.##";FLIB; 53720 LPRINT " "; 53760 LPRINT USING "###,###.##";SLIB 53800 LPRINT CHR$(140); 53840 ON ERROR GOTO 0 53880 GOTO 51320 53920 REM ******** PRINT HOURLY LIABILITY 53960 OPEN "NAM1.DAT" FOR INPUT AS #1 54000 INPUT #1,Z1$,Z2$,Z3$,Z4$,Z5$,Z6$,Z7$,Z8$,Z9$,Z10$,Z11$,Z12$,Z13$,Z14$,Z15$,Z16$,Z17$,Z18$,Z19$,Z20$,Z21$,Z22$,Z23$,Z24$ 54040 CLOSE 54080 XX$=DATE$ 54120 LPRINT " ";XX$ 54160 LPRINT :LPRINT :LPRINT " HOURLY TAX LIABILITY" 54200 LPRINT R$ 54240 LPRINT 54280 LPRINT " NAME";" ";" FED LIABILITY";" STATE LIABILITY" 54320 LPRINT R$ 54360 LPRINT 54400 IF Z1$="0" THEN 54440 ELSE OPEN "101.DAT" FOR INPUT AS #1:GOSUB 55800 54440 IF Z2$="0" THEN 54480 ELSE OPEN "102.DAT" FOR INPUT AS #1:GOSUB 55800 54480 IF Z3$="0" THEN 54520 ELSE OPEN "103.DAT" FOR INPUT AS #1:GOSUB 55800 54520 IF Z4$="0" THEN 54560 ELSE OPEN "104.DAT" FOR INPUT AS #1:GOSUB 55800 54560 IF Z5$="0" THEN 54600 ELSE OPEN "105.DAT" FOR INPUT AS #1:GOSUB 55800 54600 IF Z6$="0" THEN 54640 ELSE OPEN "106.DAT" FOR INPUT AS #1:GOSUB 55800 54640 IF Z7$="0" THEN 54680 ELSE OPEN "107.DAT" FOR INPUT AS #1:GOSUB 55800 54680 IF Z8$="0" THEN 54720 ELSE OPEN "108.DAT" FOR INPUT AS #1:GOSUB 55800 54720 IF Z9$="0" THEN 54760 ELSE OPEN "109.DAT" FOR INPUT AS #1:GOSUB 55800 54760 IF Z10$="0" THEN 54800 ELSE OPEN "110.DAT" FOR INPUT AS #1:GOSUB 55800 54800 IF Z11$="0" THEN 54840 ELSE OPEN "111.DAT" FOR INPUT AS #1:GOSUB 55800 54840 IF Z12$="0" THEN 54880 ELSE OPEN "112.DAT" FOR INPUT AS #1:GOSUB 55800 54880 IF Z13$="0" THEN 54920 ELSE OPEN "113.DAT" FOR INPUT AS #1:GOSUB 55800 54920 IF Z14$="0" THEN 54960 ELSE OPEN "114.DAT" FOR INPUT AS #1:GOSUB 55800 54960 IF Z15$="0" THEN 55000 ELSE OPEN "115.DAT" FOR INPUT AS #1:GOSUB 55800 55000 IF Z16$="0" THEN 55040 ELSE OPEN "116.DAT" FOR INPUT AS #1:GOSUB 55800 55040 IF Z17$="0" THEN 55080 ELSE OPEN "117.DAT" FOR INPUT AS #1:GOSUB 55800 55080 IF Z18$="0" THEN 55120 ELSE OPEN "118.DAT" FOR INPUT AS #1:GOSUB 55800 55120 IF Z19$="0" THEN 55160 ELSE OPEN "119.DAT" FOR INPUT AS #1:GOSUB 55800 55160 IF Z20$="0" THEN 55200 ELSE OPEN "120.DAT" FOR INPUT AS #1:GOSUB 55800 55200 IF Z21$="0" THEN 55240 ELSE OPEN "121.DAT" FOR INPUT AS #1:GOSUB 55800 55240 IF Z22$="0" THEN 55280 ELSE OPEN "122.DAT" FOR INPUT AS #1:GOSUB 55800 55280 IF Z23$="0" THEN 55320 ELSE OPEN "123.DAT" FOR INPUT AS #1:GOSUB 55800 55320 IF Z24$="0" THEN 55360 ELSE OPEN "124.DAT" FOR INPUT AS #1:GOSUB 55800 55360 LPRINT R$ 55400 LPRINT " "; 55440 ELIB$="TOTAL EMPLOYER LIABILITY" 55480 LPRINT USING "\ \";ELIB$; 55520 LPRINT " "; 55560 LPRINT USING "###,###.##";FLIB; 55600 LPRINT " "; 55640 LPRINT USING "###,###.##";SLIB 55680 LPRINT CHR$(140); 55720 ON ERROR GOTO 0 55760 GOTO 51320 55800 INPUT #1,N1$,N2$,N3$,N4$,N5$,N6$,N7$,N8$,N9$,N10$,N11$,N12$,N13$,N14$,N15$,N16$,N17$,N18$,N19$,N20$,N21$,N22$,N23$,N24$ 55840 CLOSE 55880 WHO$=" "+N1$+", "+N2$+" "+N3$ 55920 LPRINT USING "\ \";WHO$; 55960 LPRINT " "; 56000 N20=VAL(N20$) 56040 LPRINT USING "###,###.##";N20; 56080 LPRINT " "; 56120 FLIB=FLIB+N20 56160 N21=VAL(N21$) 56200 LPRINT USING "###,###.##";N21 56240 SLIB=SLIB+N21 56280 LPRINT 56320 RETURN 56360 REM ************ ELIMINATE COMMA'S 56400 FOR X=1 TO 65 56440 IF MID$(K$,X,1)="," THEN 56560 56480 NEXT 56520 RETURN 56560 LOCATE 22,1:PRINT STRING$(78,32) 56600 K$="":K=1 56640 COLOR 20,0:LOCATE 22,1:PRINT "***************** DO NOT ENTER ANY COMMA'S INTO PROGRAM ******************" 56680 FOR X=1 TO 3000:NEXT X 56720 LOCATE 22,1:PRINT STRING$(78,32) 56760 COLOR 7,0:RETURN 56800 REM **************** ERROR TRAPS 56840 IF ERR=24 OR ERR=25 OR ERR=27 OR ERR=57 OR ERR=68 THEN COLOR 4,0:LOCATE 12,20:PRINT "PRINTER IS OUT OF PAPER OR OFFLINE !!!":COLOR 7,0:LOCATE 22,22:LINE INPUT "HIT ENTER TO CONTINUE : ";RES$: 56880 IF ERR=24 OR ERR=25 OR ERR=27 OR ERR=57 OR ERR=68 THEN CLS:COLOR 4,0:LOCATE 12,20:PRINT "PLEASE STANDBY..............":COLOR 7,0:RESUME 56885 IF ERR=4 OR ERR=6 OR ERR=9 OR ERR=11 OR ERR=50 OR ERR=52 OR ERR=53 OR ERR=54 OR ERR=55 OR ERR=58 OR ERR=62 OR ERR=63 OR ERR=64 OR ERR=66 OR ERR=67 OR ERR=70 OR ERR=71 OR ERR=72 THEN 56890 ELSE RUN 56890 CLS:COLOR 4,0:LOCATE 12,1:PRINT "FILE ERROR: YOU HAVE TRIED TO VIEW, ALTER OR PRINT A NON-EXISTENT FILE !!!":COLOR 7,0:LOCATE 22,22:LINE INPUT "HIT ENTER TO CONTINUE : ";RES$:C=0:P=0:V=0 56900 RUN 56920 REM **************PRINTER SETUP 56960 CLS:COLOR 7,0 57000 GOSUB 60160 57040 CLS:COLOR 2,0 57080 X=1:Y=4 57120 LOCATE Y,1:PRINT X 57160 X=X+1:Y=Y+2 57200 IF X=9 THEN 57240 ELSE 57120 57240 COLOR 7,0 57280 LOCATE 1,20:PRINT "PRINTER SETUP MODES" 57320 LOCATE 4,4:PRINT "COMPRESSED" 57360 LOCATE 6,4:PRINT "UNDERLINE" 57440 LOCATE 8,4:PRINT "EMPHASIZED" 57480 LOCATE 10,4:PRINT "DOUBLE STRIKE" 57520 LOCATE 12,4:PRINT "EMPHASIZED AND DOUBLE STRIKE (BEST QUALITY PRINTING)" 57560 LOCATE 14,4:PRINT "NORMAL" 57600 LOCATE 16,4:PRINT "SAMPLE PRINTOUT OF AVAILABLE MODES" 57640 LOCATE 18,4:PRINT "RETURN TO PAYROLL" 57680 LOCATE 23,22:LINE INPUT "SELECT BY NUMBER AND HIT ENTER : ";K$ 57720 IF K$="1" THEN LPRINT CHR$(27);CHR$(15); 57760 IF K$="1" THEN CLS:LOCATE 12,22:PRINT "PRINTER SET TO COMPRESSED MODE" 57800 IF K$="1" THEN LOCATE 22,22:LINE INPUT "HIT ENTER TO CONTINUE : ";K$ 57840 IF K$="2" THEN LPRINT CHR$(27);CHR$(45);CHR$(1); 57880 IF K$="2" THEN CLS:LOCATE 12,22:PRINT "PRINTER SET TO UNDERLINE MODE" 57920 IF K$="2" THEN LOCATE 22,22:LINE INPUT "HIT ENTER TO CONTINUE : ";K$ 58080 IF K$="3" THEN LPRINT CHR$(27);CHR$(69); 58120 IF K$="3" THEN CLS:LOCATE 12,22:PRINT "PRINTER SET TO EMPHASIZED MODE" 58160 IF K$="3" THEN LOCATE 22,22:LINE INPUT "HIT ENTER TO CONTINUE : ";K$ 58200 IF K$="4" THEN LPRINT CHR$(27);CHR$(71); 58240 IF K$="4" THEN CLS:LOCATE 12,22:PRINT "PRINTER SET TO DOUBLE STRIKE MODE" 58280 IF K$="4" THEN LOCATE 22,22:LINE INPUT "HIT ENTER TO CONTINUE : ";K$ 58320 IF K$="5" THEN LPRINT CHR$(27);CHR$(69); 58360 IF K$="5" THEN LPRINT CHR$(27);CHR$(71); 58400 IF K$="5" THEN CLS:LOCATE 12,22:PRINT "PRINTER SET TO EMPHASIZED AND DOUBLE STRIKE" 58440 IF K$="5" THEN LOCATE 22,22:LINE INPUT "HIT ENTER TO CONTINUE : ";K$ 58480 IF K$="6" THEN GOSUB 60160 58481 IF K$="6" THEN CLS:LOCATE 12,22:PRINT "PRINTER SET TO NORMAL MODE" 58482 IF K$="6" THEN LOCATE 22,22:LINE INPUT "HIT ENTER TO CONTINUE : ";K$ 58520 IF K$="7" THEN 58640 58560 IF K$="8" THEN RETURN 58600 GOTO 57040 58640 CLS:LPRINT CHR$(27);CHR$(15); 58680 LPRINT 58720 LPRINT "THIS IS COMPRESSED PRINTING" 58760 LPRINT 58800 GOSUB 60440:GOSUB 60160 58840 LPRINT CHR$(27);CHR$(45);CHR$(1); 58880 LPRINT 58920 LPRINT "THIS IS UNDERLINED PRINTING" 58960 LPRINT 59000 GOSUB 60440:GOSUB 60160 59240 LPRINT CHR$(27);CHR$(69); 59280 LPRINT 59320 LPRINT "THIS IS EMPHASIZED PRINTING" 59360 LPRINT 59400 GOSUB 60440:GOSUB 60160 59440 LPRINT CHR$(27);CHR$(71); 59480 LPRINT 59520 LPRINT "THIS IS DOUBLE STRIKE PRINTING" 59560 LPRINT 59600 GOSUB 60440:GOSUB 60160 59640 LPRINT CHR$(27);CHR$(69); 59680 LPRINT CHR$(27);CHR$(71); 59720 LPRINT 59760 LPRINT "THIS IS EMPHASIZED AND DOUBLE STRIKE PRINTING" 59840 LPRINT 59880 GOSUB 60440:GOSUB 60160 59920 LPRINT 59960 LPRINT "AND BACK TO NORMAL PRINTING" 60000 LPRINT 60040 GOSUB 60440:GOSUB 60160 60080 LPRINT CHR$(27);CHR$(140); 60120 GOTO 57040 60160 LPRINT CHR$(27);CHR$(20); 60200 LPRINT CHR$(27);CHR$(18); 60240 LPRINT CHR$(27);CHR$(45);CHR$(0); 60280 LPRINT CHR$(27);CHR$(70); 60320 LPRINT CHR$(27);CHR$(72); 60360 LPRINT CHR$(27);CHR$(87);CHR$(0); 60400 RETURN 60440 FOR X=65 TO 90 60480 LPRINT CHR$(X); 60520 NEXT X 60560 LPRINT 60600 FOR X=97 TO 122 60640 LPRINT CHR$(X); 60680 NEXT X 60720 LPRINT 61080 LPRINT STRING$(79,61) 61120 RETURN 61160 REM ******************* CREATE SUPPORT FILES 61200 FICA1$="7.05"+",":FICA2$="7.05"+"," 61240 OPEN "TAX.DAT" FOR OUTPUT AS #1 61280 PRINT #1,FICA1$,FICA2$ 61320 CLOSE 61360 OPEN "NAM.DAT" FOR OUTPUT AS #1 61400 N1$="0,":N2$="0,":N3$="0,":N4$="0,":N5$="0,":N6$="0,":N7$="0,":N8$="0,":N9$="0,":N10$="0,":N11$="0,":N12$="0,":N13$="0,":N14$="0,":N15$="0,":N16$="0,":N17$="0,":N18$="0,":N19$="0,":N20$="0," 61440 N21$="0,":N22$="0,":N23$="0,":N24$="0," 61480 PRINT #1,N1$,N2$,N3$,N4$,N5$,N6$,N7$,N8$,N9$,N10$,N11$,N12$,N13$,N14$,N15$,N16$,N17$,N18$,N19$,N20$,N21$,N22$,N23$,N24$ 61520 CLOSE 61560 OPEN "NAM1.DAT" FOR OUTPUT AS #1 61600 N1$="0,":N2$="0,":N3$="0,":N4$="0,":N5$="0,":N6$="0,":N7$="0,":N8$="0,":N9$="0,":N10$="0,":N11$="0,":N12$="0,":N13$="0,":N14$="0,":N15$="0,":N16$="0,":N17$="0,":N18$="0,":N19$="0,":N20$="0," 61640 N21$="0,":N22$="0,":N23$="0,":N24$="0," 61680 PRINT #1,N1$,N2$,N3$,N4$,N5$,N6$,N7$,N8$,N9$,N10$,N11$,N12$,N13$,N14$,N15$,N16$,N17$,N18$,N19$,N20$,N21$,N22$,N23$,N24$ 61720 CLOSE 61760 RUN 
